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INTRODUCTION 


Here in your hands you hold a map to one of the most 
fascinating journeys you will ever take. Even if you have never 
touched a computer before you bought your BBC micro, we 
hope to share with you — step by simple step — the secrets of 
computing programming. 


It’s not going to be difficult. We've deliberately included a 
number of major games in the book, so after you’ve entered 
and run the games, you’ll discover you've learned to program 
almost while you were not looking. It’s going to be painless and 
it’s going to be fun. 


The whole process is greatly simplified by the fact that you’re 
learning on a BBC micro. Representing the leading edge of 
computer technology, the BBC micro is a computer that was 
designed to be friendly, and easy and rewarding to use. 


Come on and join us now, as together we discover how you can 
make the most of your BBC micro. 


Tim Hartnell and Alex Gollner 
London, August, 1983 


A NOTE ON THE 
AUTHORS 


Tim Hartnell is the most widely published author of books 
related to the Sinclair computers in the world. Founder of the 
British National ZX Users’ Club and its magazine Interface, he 
has written many books for the ZX80, T/S 1000 and T/S 2000. 
He is founding editor of the British bimonthly magazine ZX 
Computing, and is involved in user-group activities in the US 
and UK. 


Alex Gollner is a 16-year old student living in London. He is 
still at school and has just passed his ‘‘O’’ level examinations. 
He has already had one computer book published successfully, 
GAMES FOR YOUR BBC MICRO —- this was also edited by Tim 
Hartnell. 


CHAPTER ONE 
DISCOVERING THE 
KEYBOARD 


You have just acquired a great machine and you will find it the 
ideal introduction to the world of computers. As some people 
are wary of their first computer, we are going to take things 
stowly. 


READ THIS BOOK WITH YOUR COMPUTER 
TURNED ON 


It is useful to try things out on your computer as you read this 
book, so try to have your computer near you. 


This is a manual, you do not read it in one session and come 
away a fully-blown computer programmer. You type things in 
when they are explained to you in the book, to experiment. In 
this way you can learn to program in easy steps and enjoy games 
as they come up. 


THE KEYBOARD 


At first glance the keyboard of the BBC micro looks a little 
intimidating, but as you learn more about programming, you'll 
be surprised how familiar it will become. In learning to 
program we must ‘talk’ to the computer. This is done through 
the keyboard. As you type the computer tells you what you 
have done by displaying it on the screen. 
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There are two kinds of keys on the keyboard: keys that do 
things and keys which simply put numbers and letters into the 
computer. There are also three red lights at the bottom left of 
the keyboard. The keys which simply put numbers and letters 
into the computer we shall call ‘character keys’. 


CHARACTER KEYS 


To get you used to the arrangement of the keys on the computer 
just type randomly. It is quite similar to the typewriter 
arrangement, but has a few extra keys and the punctuation is 
set out differently. 


If you can touch-type you must watch out for two things: do 
not use a capital ‘O’ for the number zero or use a lower case ‘I’ 
to input the number one. 


If you have just turned the computer on, the lettering on the 
screen is likely to be in upper case, Again if you are used to 
typing you would expect to press the carriage- return key to go 
to the next line, but on computers the Lext automatically goes 
on to the next line. If you press RETURN (the computer 
carriage return) you get a display something like this: 


SRE GEOL YT GPT a YU YY elit 


Mistakes 


Do not worry about anything that appears on the screen at the 
moment. Get used to the character keys so you can find them 
quickly and easily. 


ACTION KEYS 


THE SHIFT KEYS. So far you have been typing capital letters 
and numbers, but you have probably noticed the SHLJT, 
SHIFT LOCK and CAPS LOCK keys. These keys are related 
to two of the lights at the bottom left, the ‘Shift Lock’ and 
‘Caps Lock’ lights. When you turn the computer on it always 
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assumes the CAPS LOCK key has been pressed, and to show 
that this has happened the ‘Caps Lock’ light will glow. To help 
you understand the way the shift keys work we will show you 
how they affect the character keys which we shail use as our 
examples: 


fo» 


In ‘caps lock’ mode when the ‘caps lock’ light is lit these keys 
give you ‘L’ and ‘:’ respectively. In this mode the Jetter keys 
produce upper casc letters though you still get the symbols on 
the lower parts of the punctuation keys. This is the mode the 
computer starts in because it is the most useful for typing in 
programs. 


If you wish to get the symbols on the top part of the 
punctuation keys (whether you’re in ‘caps lock’ mode or not), 
as for instance ‘*’ in this case, you press SHIFT and while 
holding down SHIFT, press the key with the symbol you want. 


If you press the CAPS LOCK key the ‘caps lock’ light goes out 
and the computer is in ‘lower case’ mode giving ‘I’ and ‘:’ from 
our example keys. This mode simply gives you the symbols on 
the lower parts of the keys, as well as the lower-case letters. 


If you now press the SHIFT LOCK key (the ‘shift lock’ light 
lights up) as on typewriters, all the character keys produce 
upper case letters and the upper symbols on the top half of the 
keys will appear on the screen. Using our example keys we 
would get ‘L’ and ‘*’ respectively. 


OTHER KEYS 


CTRL (short for ‘control’) is a special kind of shift key which, 
when used in conjunction with the letter keys, changes them 
into action keys which ‘control’ the computer (as is the case 
with the other action keys). For example if you hold down 
CTRL and the Jetter ‘G’ that tells the computer to produce a 
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‘beep’ from its loudspeaker. Try it. It may not seem too useful 
at this point, but it could help wake an exhausted programmer! 
In programming this is called CONTROL G. 


ESCAPE lets you ‘escape’ from a program, in other words, the 
program stops. 


TAB is useful for word-processing programs — it immediately 
makes a space appear on the screen. 


DELETE erases the character you have just typed (unless you 
have produced a space by pressing the TAB key), You can tell 
what you are about to erase by looking for the ‘cursor’: this is a 
flashing horizontal line as wide as a character which tells you 
where the next character you are about to type will appear. 
When you delete a character you delete the character to the left 
of the cursor. 


BREAK acts as if you were turning the computer off and then 
back on very fast — it is there so you can stop the computer no 
matter what it is doing, and make it forget anything in its 
memory. 


COPY, > , «— ,.f and 4} arecalled the ‘editing keys’. 
These keys are used to change things that are on the screen. (See 
chapter three). 


THE FUNCTION KEYS, i.e., the red keys f@ to f9 can be 
programmed to input a series of characters which you use a 
great deal — if you wanted to say ‘BBC computer’ many times 
in a program, instead of typing it out every time, one of the red 
keys could be programmed to input those letters at one 
depression. You will find an example of this in chapter five. 


When communicating with the computer, we use commands in 
the form of keywords taken from ordinary English, which give 
you an idea of what they do. For instance, PRINT prints things 
on the screen or on a printer. SOUND makes the computer 
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output sound. There are many keywords to use in your BBC 
BASIC programs. When you are programming, the computer 
saves your typing by allowing you to use abbreviations of the 
keywords, the most frequently used words having the shortest 
abbreviations. PRINT for example can be input as P. and the 
less often used SOUND is shortened to SO. (full stops after 
these shortened keywords). (See your BBC manual for an 
alphabetical list of keyword abbreviations.) 


As you have been typing you have scen that every time you press 
RETURN a ‘greater than’ symbol appears to the left of the 
screen with the cursor flashing next to it — this is the ‘prompt’, 
the computer is waiting for input 


That takes care of our introduction to the keyboard. You'll 
find that it is a lot simpler when you’re programming the 
computer to know which mode to choose, and which one 
you’re in, than might be apparent from this explanation. Stick 
with it, and you'll see. 


CHAPTER TWO 
PUTTING THINGS ON 
THE SCREEN 


We pointed out in chapter one, when talking about the 
keyboard, that the action keys were the most important ates on 
the keyboard. We’re now going to introduce Another 
important action key, RETURN. Whenever you're typing, the 
computer will wait until you press RETURN before acting on 
the material you’ve entered. If you have written a program line, 
the computer will ignore that line, and it will sit af the bottom of 
the screen, with the cursor waiting patiently beside it, until you 
press RETURN. 


Type this in: FM INT 


The same goes for the PRINT 2 you now have on the sereen. 
Until you press RETURN the computer will do nothing about 
it. Press RETURN now and you should see the number 2 
appear. This is how PRINT works. It takes the information 
which follows the command PRINT, with a few exceptions 
which we’ll learn about in a moment, and PRINT’ this on the 
screen, which after all is exactly what you'd expect it to do. 


But your computer is more clever than that. If the word PRINT 
is followed by asum, it will work it out before printing, and give 
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you the result of that sum. Try it now. Enter the following 
line, then press RETURN: 


RAR INT eect 


You should see the figure 8 appear. The computer added 5 
and 3 together, as instructed by the plus (+) sign, then 
printed the result on the sereen. It can do subtraction, as well 
(clever inventions, these computers). Type this in, and press 
RETURN to see subtraction (and PRINT) at work: 


PRINT 7-2 


Now, the computer can — of course — do a wide range of 
mathematical tasks, many of them far more sophisticated 
than simple addition and subtraction, But, there is a slight 
hitch. When it comes to multiplication, the computer does 
not use the x sign which you probably used at school. 
Instead, it uses an asterisk (*), and for division, instead of + 
the computer uses a slash sign (/). 


DOING MORE THAN ONE THING AT ONCE 


The computer is not limited to a single operation in a PRINT 
statement. You can combine as many as you like. Try the 
next one, which combines a multiplication and division. 
Type it in, then press RETURN to see the computer evaluate 
it: 


“PRINT Seas 2 


This seems pretty simple. Just type PRINT, then type in the 
material you want the computer to PRINT, and that’s all 
there is to it. But, it is not as simple as that! Try the next one 
and sce what happens: 


seu Teshing 
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REPORT MESSAGES 


That doesn’t look too good. Instead of the word testing we’ve 
got a message from the computer which reads as follows: 


Ney such variable 


This is a computer report. Jt tells you when you’ve made a 
mistake. A complete list of the report codes is included in your 
manual. We won't try to explain the meaning of this one here, 
because variables are not on the curriculum for this chapter, 
but it means simply that the computer thought you wanted it to 
print a number, which had the name testing. Foolish machine. 
Computers may be very, very clever machines, but they need to 
be led by the hand, like a child and told exactly what you want 
them to do. Give them the right instructions, and they will carry 
them out tirelessly, and perfectly, without an error. But give 
them incorrect instructions, or — even worse — confuse them, 
and they give up in despair, or do something quite alien to your 
intentions. 


STRINGS 


If you want the computer to print the word testing you must put 
quote, or speech marks around the words, like this: 


SPR ENT "TESTI Nis" 


This time when you press RETURN, the word TESTING will 
appear. This is worth remembering. When you want the 
computer to print out some words, or a combination of words, 
symbols, spaces and numbers, you need to put quote marks 
around the material you want it to print. Information held in 
this way between quote marks is called a most peculiar name in 
computer circles. The jargon for information enclosed in quote 
marks is a string. So, in our example above, the word testing, 
when enclosed by quote marks, is a string. 
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OUR FIRST PROGRAM 


Type the following into your computer. Notice that each line 
starts with a number. Typethis number into the computer, then 
PRINT, gel the opening quote marks from the 2 key (using 
SHIFT) then type in the words which follow on the same line, 
then get the closing quote marks from the 2 key again. Then, 
press RETURN. Instead of the first line appearing on the 
sereen, the line is entered into the computer. To see that the 
computer has remembered the line type LIST followed by 
RETURN. This is the first line of your first program. 


Type in the next line (the one starting with 26) and press 
RETURN once you have it all in place. 


Look carefully at the material you’ve typed in. The most 
common mistake in this sort of program line is to leave the final 
quote mark off the end of the line. Check and recheck the line 
until it is exactly the same as the line in the listing above. 


Lines do not have to be entered in strict numerical order. If you 
do miss a line out just type the line with its number press 
RETURN and the computer will put the line in Tits correct place 
in the program. 

To see this in action, type the following line, press RETURN. 
ES MEM @ lame in the middle... 


Now, the program should look like this when you LIST it. 


‘ack ane 


“oerpapy bay 
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23 GEM & line in the middle... 
ao FRINT "To #¢@tch a goadil” 
40 ERINT "of water." 


As you can see, the line numbered 25 has moved itself into the 
right position in the program, between lines 26 and 3@. Now, 
RUN the program. 


MAKING REMARKS | 


You should find that the new line, line 25, has not made any 
difference at all to the running of the program. Why not? Why 
did the computer decide to ignore line 25? The word REM 
stands for remark and is used within programs when we want to 
include information for a human being reading the program 
listing. You’ll find REM statements scattered throughout the 
programs in this book. In each and every case the computer 
ignores the REM statements. They are there only for your 
convenience, for the convenience of the programmer, or of 
someone else reading the program. 


Often you’ll use REM statements at the beginning of the 
program, like this one: 


* REM dack amd Jill omen 


You may wonder why this would be necessary. After all, it is 
pretty obvious that the computer is holding the ‘Jack and Jill 
poem’, even without the line 5 REM statement. You are righ* 4 
In this case there is little point in adding a title REM statement 
to this program. But have a look at some of the more 
complicated programs a little further on in the book. Without 
REM statements you’d have a pretty difficult time trying to 
work out what the program was supposed to do. 


REM statements are often scattered throughout programs. 
There they serve to remind the programmer what each section is 
supposed to do. Once you’ ve been programming a while, you’ll 
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be amazed at how many programs you’ll collect in listing form 
which — when you go back to them in a month or so — will 
seem totally obscure. You won’t have a clue how the program 
works, or even more important, what on earth it is, or what it is 
supposed to do. This is where you will find REM statements 
invaluable. 


It is worth getting into good habits early as a programmer. So, 
we suggest you start right now adding REM statements to 
programs. If you come across programs, or program 
fragments in this book, which you want to keep, and which do 
not have REM statements, get into the habit of using REM 
statements by adding them to these programs. And make sure 
you use them in your original programs. 


BACK TO PRINT 


Let’s return to the subject of the PRINT command. Empty 
your computer’s memory by typing NEW. You can check that 
the program is no Jonger in the computer by trying to LIST it — 
there should be nothing there. 


MORE PRINT STATEMENTS 


Type the following program into your computer and then run 
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you should get something like this on the screen: 


fools 


Now there is a lot we can learn from this program. 


Firstly, as in the ‘Jack an Jill’ program, the computer executes 
a program line by line, starting at the lowest numbered one and 
proceeding through the line numbers in order until it runs out 
of numbers, then it stops. (You'll discover that this orderly 
progression of line numbers does not always apply, as there are 
ways of making the computer execute parts of a program out of 
strict numerical order, but for the time being, it is best to 
assume that the program will be executed in order). 


Look first toline 1@ of your program, You can see that there isa 
comma between the | and the 2. This has the effect of getting 
the computer to print the first number (1) nine characters in 
from the left hand side of the screen, and the second number {2) 
ten characters on from that, at about the middle. When you use 
a comma like this to divide the things which follow a PRJ*"T 
statement (but mof when the comma is in a string, that is, 
between quote marks), it divided the screen into columns of 
ten, printing that which follows the comma starting at the next 
available column of the screen. If the line had read PRINT 
1,2,3,4,5 it would have printed the 1 at the start of the first line, 
the 2 ten characters on and onto the 5 underneath the one, 
because this was the ‘next available ten characters’. If you're 
not too clear what we mean by this, try it yourself. Numbers are 
printed to the right of the column, while strings are printed to 
the left of each of the ten character columns. 
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The second line of the program (line 15)is just the word PRINT 
with nothing following it. This has the effect, as you can see in 
the printout (and on your television screen), of putting a blank 
line between those lines which do include material after the 
word PRINT. (The same comment applies to lines 25, 35, 45, 
55 and 65). 


Line 20 has three numbers (1, 2 and 3) separated not by commas 
(as in line 18) but by semicolons (found on the O key). Instead 
of separating the output of the numbers-as the comma did, 
you'll see that it causes them to be printed hard up against each 
other, as in the second line of the program. You use the 
semicolon (;) when you want some printed material to follow 
other printed material without a break. But as the numbers did 
not begin with a semicolon they started at the end of the first 19 
characters. 


Line 30 has the words Auntie Beeb and thisisa .......... if 
you mentally said sfring when you came to those dots, then 
you're learning well. The word is a string, in computer terms, 
because it is enclosed within quote marks. 


Line 40 is rather interesting. For the first time we have included 
numbers and a symbol (=) within a string. As you can see, the 
computer prints exactly what is within the quote marks, but 
works out the reslt of the calculation for the material outside 
the quote marks, giving — in this case — the result of adding 23 
to 34. Try to remember that the computer considers everything 
within quote marks as words, even if it is made up from 
numbers, symbols, or even just spaces, or any combination of 
them, while it counts everything that is no¢ within quote marks 
in a PRINT statement as a number. This is why it got so upset 
earlier when we told it to print resting without putting the word 
in quote marks. It looked for a number which was called 
testing, and because it could not find one {as we had not told the 
computer to let testing equal some numerical value), it refused 
tO co-operate. 
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So line 49 treats the first part, within quote marks, as a afrine, 
and the second part, outside quote marks, as numerical 
information which it processed. 


In line 58 we see the asterisk (*) used to represent multiplication 
and the computer quite reasonably works out what 2 times 3 is 
and prints the answer 6. In line 6 we come across a new, and 
strange sign, a little upward arrow. This means ‘raise to the 
power’ so line 68 means PRINT 3°. Now, it is pretty difficult 
for a computer to print a number half way up the mast of 
another number, so we use the upward arrow to remind you (by 
pointing upward) that it really means ‘print the second number 
up in the air’. You probably know that 7? is read as ‘seven 
squared’. It means to raise seven to the second power. In a 
similar way, 3° means raise three to the fifth power which is 
exactly what the computer does in line 60. 


The final line of this program combines a string (the answet 
is’) with numerical information (23 + 5 ~~ 7/6). You can see 
that, as expected, the computer works out the sun before 
printing the answer, and prints the string exactly as it is, Look 
closely at the end of the string. You’ll see there is a space there. 
After the closing quote is asemicolon (;) which, as we learned! int 
line 26, joins various elements of a PRINT statement together, 
This semicolon means that the result of the calculation is 
printed up next to the end of the string. However, if there were 
no space within the quote marks, the result of printing line 74 
would be: 


SPE iia Ee GPR? ib frees ain 


As you can see, this is by no means as clear as the original 
version. 


That brings us to the end of the second chapter of the book. 
We’ re sure you’!] be pleased at how much you’ve learned so far, 
and are looking forward to continuing your learning. But now 
you’ ve earned a break. So take that break, and then come back 
to the book to tackle the third chapter. 


CHAPTER THREE 
RINGING THE 
CHANGES 


It’s all very well getting things onto the computer’s screen as we 
learnt to do in the last chapter, but from time to time you'll 
discover we need to be able to get printed material offthe screen 
during a program, to make way for more PRINT statements. 
We do this with a command called CLS, for CLear the Screen. 


CLEAR THE SCREEN 


Enter the following program into your computer and run it. 
The dollar sign after the A in line 26 comes from the 4 key. You 
get the dollar sign by holding down the shift while pressing the 
four key. 


iO PRINT "TESTING" 
a INET at 


oO) OLS 


When you run the program, you’ll see the word TESTING 
appear at the top of the screen, more or less as you’d expect: 


TESTING 


However, below that you'll see a question mark within a 
flashing cursor next to it: 
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This is an input prompt. An input prompt, which appears in a 
program when the computer hits the word INPUT, means the 
computer is waiting for you to enter something else into the 
computer, or just to press RETURN. You'll recall that we 
spoke earlier about strings and about how they were anything 
which was enclosed in quote marks. The computer signals that 
it is talking about a string by using the dollar sign. So line 20 is 
waiting for a string called A$ to be input by you. 


Anyway, when you respond to the input prompt by pressing 
ENTER, you’ll sce the screen clears, and testing disappears. 
Where did it go? We pointed out that the computer works 
through a program in line order. Firstly, with this program, it 
printed /esting on the screen, then progressed to line 26, where 
it waited for an input (or for you to press RETURN). Once 
you'd donc this in line 2@, it moved along to line 38 where it 
found CLS and obeyed that instruction, The instruction was to 
clear the screen, so the computer did just that, and the screen 
went clear. 


Run the program a few more times, until you’ve got a pretty 
good idea of what is happening, and you’ve followed through 
— in your mind — the sequence of steps the computer is 
executing. 


DOING IT AUTOMATICALLY 


Instead of waiting for you to press ENTER, you can write a 
program which clears the screen automatically, as our next 
example demonstrates. Enter this next program into your 
computer, type RUN, then RETURN, and sit back for the 
Amazing Flashing Word demonstration. 


oP Livia! 


io RINT "Alice 
F ASBL TO LOOd 


Pe 


EAT & 


eu 


re 


aor Th 


CHAPTER THREE 25 


fyi de bbe pyset f Pid faatyes 


Pie FALGM 

Run this program, and you’ll see the word AUTOTESTING 
alternately flashing off and on at the top of the screen. ‘What is 
happening here? Let’s look at the program, and go through it 
line by line. Firstly, as you know, line 19 prints AUTOTEST- 
ING at the top of the screen.: Next, the computer comes to line 
26, where it meets the word FOR. We'll be learning about 
FOR/NEXT loops (as they are called) in detail in a later 
chapter, but all you need to know here is that the computer uses 
FOR/NEXT loops for counting. In this program lines 20 and 
36 (for FOR is in line 20, the NEXT in line 36) tell the computer 
to count from one to 1000, before moving on. As you can see, it 
does this counting pretty quickly. 


So, it waits for a moment while counting from one to 1660. 
Then it comes to line 48, which is the command CLS, 
which tells the computer to clear the screen. It does this, 
and AUTOTESTING disappears from the screen, The 
computer then encounters, in lines 5@ and 60, another 
FOR/NEXT loop, so waits a while as it counts form one to 
1900 again. Continuing on in sequence, it comes to line 70, 
where it finds the word RUN. Now, as you know, you get 
the computer to execute a program by typing RUN, 
followed by RETURN. But RUN is a key word, so there is 
no reason why you cannot use it within a program, as we 
have in line 7@ of this program. When the computer comes 
to line 74, it obeys the command, and RUNs the program 
again, so that it goes through the AUTOTESTING 
printing, counting to 1000, clearing the screen, counting to 
1086 again, and then hitting RUN so that the whole dance 
starts over. This is an endless loop so to stop the program 
press the ESCAPE key. 


CHANGING PROGRAM LINES EASILY 


Your computer is provided with an EDIT function which 
makes it very simple to change the content of lines. within a 
program. NEW the current program, then enter the 


26 GETTING STARTED ON YOUR BBC MICROCOMPUTER 


following program into your computer. Do not press RUN. We 
want to explain how to edit the program: 


lo REM An Edit test 
20 PRINT "Test Aqai 


20 RRTNT "ana Aaain 


Ei 


If you want to put a line in the middle, you should remember 
that if you type 


So FY TNT Cham ero 


and the program is listed, it will appear in between lines 26 and 
36. But if you look at the line carefully, you will see that if you 
were to RUN it the line would generate the error: 


Wo ke Y a} 
eam LUM a 


NLssing 
So you should correct it, but, instead of rewriting the line you 
can use the arrow keys to create the editing cursor. Lightly tap 
the up-arrow key and the underlining cursor moves up one 
character and where it was a white block appears. The block is 
the ‘printing cursor’ and the flashing line is the copying cursor. 
When you press RETURN the cursors come together. LIST the 
program and move the ‘copying cursor’ to the beginning of line 
25. Then press and hold down COPY. The copying cursor 
copies the line and the printing cursor will print the line as the 
cursor copies it. 


In this example the copying cursor is about to copy the space 
between ‘‘An’’ and ‘‘Error’’ so the printing cursor is about to 
print the copied space: 

‘ 0, te, ut Pa r a as ak ea aa 
"i 


Here is our line completely copied: 


ees RTT Var Errore B 
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Then after the deletion of the ‘‘r’’ and the addition of a ‘ 
(quote) 


om ae 


oO RTA ei Eee? 


To finish editing, press RETURN entering the new line into the 
computer. 


CHAPTER FOUR 
DESCENT INTO 
CHAOS 


It’s time now to start developing some real programs. You'll 
notice that from this point on in the book there are some rather 
lengthy programs. Many of them will contain words from the 
BASIC programming language which have mor been explained, 
This is because, as programs become more complex (and far 
more satisfying to run) it becomes more and more difficult to 
keep programming words which have not been explained out of 
the program. However, if is not a major problem. 


We are working methodically through the commands available 
on the computer. When you come across a word in a program 
which seems unfamiliar, just enter it into the program. You’ll 
find that you’ll soon start picking up the meaning of words 
which have not been explained, as you see how they are used 
within a program. So, if you find a new word, don’t worry. The 
program will work perfectly without you knowing what the 
word is, and investigating the listing after you’ve seen the 
program running is likely to allow you to work out what it 
means anyway. 


RANDOM EVENTS 

In the world of nature, as opposed to the manufactured world 
of man, randomness appears to be at the heart of many events. 
The number of birds visible in the sky at any one time, the fact 
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that it rained yesterday and may rain again today, the number 
of trees growing on one side of a particular mountain, all 
appear to be somewhat random. Of course, we can predict with 
some degree of certainty whether or not it will rain, but the 
success of our predictions appears to be somewhat random as 
well. 


When you toss a coin in the air, whether it lands heads or tails 
depends on chance. The same holds true when you throw a 
six-sided die down onto the table. Whether it lands with one, 
the three or the six showing depends on random factors. 


Your computer has the ability to generate random numbers 
which are very useful for getting the computer to imitate the 
random events of the real world. The computer uses the 
keyword RND which stands for RaNDom. 


GENERATING RANDOM N UMBERS 


We'll start by using RND just as it is to create some random 
numbers. Enter the following program, and runit for a while: 


When you do, you’ll see a list of numbers like these appear on 
the screen: 
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2, OOS 421 FES 


a BA hah yoy ol Feat WE | 


As you can see, RND(1) generates numbers randomly between 
zero and one. If you leave it running, it will go on and on 
apparently forever, writing up new random numbers on the 
screen. 


Now random numbers between zero and one are of limited 
interest if we want to generate the numbers and get them to 
stand for something else. For example, if we could generate I's 
and 2’s randomly, we could call the 1’s heads and the 2’s rails 
and use the computer as a kind of electronic ‘coin’. If we could 
get it to produce whole numbers between one and six, we could 
use the computer as an imitation six-sided die. 


Fortunately, there is a way to do this. 
LO PRINT FRADE Ga OS 


0) GIR ET 


papery j id 


When you run this program, you'll get a series of numbers 
(chosen at random between | and 6) like these: 
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¢ © 16 6 4 4&4 F 4 i mo Lowe SOS Sd A ee 
oS 6.3 64:9 6 °S> Se & : a 
“ag & Liem | aM | a 4 

Zod FBS eS ] 
és 68 8 22 42 1! 4 j 
294648676221 2 
2331541244 3 
< 1&é2i1ts 2 & 
Fs cs aes 4 
. os oo 2 
ran) 


Even though we can create vast series of numbers between 1 
and 6 with a program like this, it is not particularly interesting. 


FAST FOOD CRAZINESS 


Enter and run the next program, which makes an interesting 
use of the computer’s ability to generate random numbers. As 
you can see, it creates a scene where you have turned up ata fast 
food outlet, desperate for something to eat, and you’ve decided 
to let random number generator pick your food for you: 


7 


THEN PRINT Fa HAMIRURGET 


HoAbd. THE TRinpirivas? 


(HEM PERN) Ue Losi Ree TM 
Mu Fe TEL 
By Pe PAT Re CM “N% 


Su) PR GNT 


CHS y esaisks 


pvt sta «hich 
1 Oe 
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When you run this, you’ll get something like this list of food on 
the screen: 


VOU? VE 
8 PAL 


y lai? VE 
A PAIR 


YO VE 


m HAR RUPP GEER 


VOU? VEE 


a ed 


YC" VE 


Bo Losrsist 


YORI? VE 
A PATER 


FOIL Vo 


A MAMRURGE 


VOLE Ve 
rH FRI 


YRS Vie 


eo HAM GURIGE Fe 


YOU" VE 


em HLS 


OR OTE! 
Ce 


MEAT HOY DOES WETH SALICE 


QRDEF 
iF 


iO0%, MEAT HOP DOGS with 


Sed 


ORGERED 


WITH ALL tite TH Tri PGS 


mu 


id TH 


Tie UME 

MLL. Phik TR TMP Litigss 

CLOTS ED 
eye ir 


OF STEAM TRS PRN ROLES 


(RTM RET 


iif HEAT HOT DGG. WETH SaUri 


ORDER AE 


WETH ©ii THE PP heibi tiwdsss 


ORDEREL 


OP LOo% MEAT HOT OOS WE TH oAlici: 


HRDE RET 


wy Tei THE TR TAMING S 


fall. 


DRE RED 


PLATERUL OF FRESHLY COOKER FEBS 


(Press any key to see what you have ‘ordered’). 
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Notice how the program sets the letter A to the value of the 
random number in line 3@. In this case, the letter A is standing 
fora number. It is called a variable, or, because it stands fora 
number (as opposed to standing for a word, or a string) it is 
called a numeric variable. In computer jargon, we say that, (in 
line 30) the computer has assigned the value of the random 
number to the variable A. And, as you can see in lines 58, 60, 70 
and 8, the value assigned to A determines which food order 
you place. Line 95 makes the computer wait until you press a 
key (any of the alphanumeric keys) before the computer 
continues. Otherwise the computer would go on so fast that 
you would not be able to read it! Delete the line to see... Read 
this over if it seerns incomprehensible the first time. 


CHAPTER FIVE 
ROUND AND ROUND 
WE GO 


In this chapter we’ll be introducing a very useful part of your 
programming vocabularly — FOR/NEXT loops. You’ll recall 
that we mentioned FOR/NEXT loops when demonstrating the 
use of CLS to clear the screen. There, a loop was used to adda 
delay after the word was printed on the screen before the screen 
was cleared, 


A FOR/NEXT loop is pretty simple. It has the form of two 
lines in the program, the first like this: 


And the second as follows: 


NEY T 


The control variable, the letter after FOR and after NEXT 
must. be the same. 


Asa FOR/NEXT loop runs, the computer counts from the first 
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When you run it, this appears on the screen: 


sa fia 7 i 
o i id is 
1-3 14 LS Le 
1? if Ly rae) 


wo REET & 


And this is the result of running it: 


STEPPING OUT 

In the two previous examples, the computer has counted up in 
ones, but there is no reason why it should do so. The word 
STEP can be used after the FOR part of the first line as 
follows: 


POF ee] FO dias STEP Lo 


PRITMT es 
MEE TR 


When you run this program, you'll discover it counts 
(probably as you expected) in steps af ten, producing this 


result: _ ae 
bts Aa hey 
aaa FO 0 


are 
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STEPPING DOWN 


The STEP does not have to be positive. Your computer is just 
as happy counting backwards, using a negative step size: 


This is what the program output looks like: 


page) oe) itd 


gt) 


MAKING A NEST 


It is possible to place one or more FOR/NEXT loops within 
each other. This is called nesting /oops. In the next example, the 
B loop is nested inside the A loop: 


1 qj TO 
ayy VPs 
AOR TET ope? TPES Vay PS es yee 


| 
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You must be very careful to ensure that the first loop started is 
the /ast loop finished. That is, if FOR A ... was the first loop 
you mentioned in the program, the last NEXT must be NEXT 
A. 


Here’s what can happenif you get them out of order (the Bloop 
ends after, rather than before, the A loop): 


Rio FOR abt dine us 


MULTIPLICATION TABLES 

You can use nested loops to get the computer to print out the 
multiplication tables, from one times one right up to twelve 
times twelve, like this: 


Here’s part of the output: 
& VTE 


7 
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There is no reason why both loops should be travelling in the 
same direction (that is, why both should be counting upwards), 
as this variation on the Times Table program demonstrates: 


io FOR a=) 
20 FOR Ee 
PRINT 
MEXT 1 
NEXT A 


TS "FAxR 
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Tapp by oF 


be. 


> 


2 
beg 


dis 
eo] 4 

Li 1 eS 
i 

i 

es 

[hs 


o 
" 
4 
4 
i 


a 


CRACKING THE CODE 


It’s time for our first rea/ program. In this program (which uses 
several FOR/NEXT loops) CODEBREAKER, the computer 
thinks of a four-digit number (like 5462) and you have cight 
guesses in which to work out what the code is. In this program, 
written by Adam Bennett and Tim Summers, you not only have 
to work out the four numbers the computer has chosen, but 
also determine the order they are in. 


After each guess, the computer will tell you how near you are to 
the final solution. A ‘white’ is the right digit in the wrong place 
in the code, a ‘black’ is the right number in the right place. 
You'll see that you are aiming to get four blacks. When you 
have, you have cracked the code. Digits may be repeated within 
the four-number code. Enter the program, and play a few 
rounds against the computer. Then, return to the book fora 
discussion on it, which will highlight the role played by the 
FOR/NEXT loops. 


ee ee ee ee ee ees 
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are dated t 


a 4beeeltadb ony 


the gifficudltoec 


Pdi serts 


PRINT 
Be TNT 


care 


4a 
ah fd 


450 PRINT 


NEXT 
bysst'h 
Pr INT 
S90 NEXT 
40 PRINT 
S02 FRINT 
eo FRINT 


(3 


t 


ih Dea eB CG) 


i 


u 
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Ptnoeira 4 7s s 
Pleo Dae Pe} 


THEN GTC) 4th 


THEM CCrTE gon 


TO 4 


TC 4 


WHT TE 


BCG) RUG) dis 


eure) 


THEM 


ita 
y 


Beats 


didn’ bt ek ak, 


4] 


eo oe on 
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# The answer wag “sh cbs eacs 
3 
“a PRINT 
G32 PRINT 
f- i HY isl T iy 4 ga j 1 ej CUTE y c med exin etek i: er, 


Fler TT 
PRT NT You geek the 


Rist hyp" in Gust "sig ® 


Here’s what the screen looks like after one round: 


Rrter Guese Hamner FUG oF 1, 


Bo Web PE 


WHITE WHITE 


BLACE BLACK 
od A CS = 
ol eet es BE pat ie RL alte 


Weld done Codemreaker... 


YoU gob ke arsiaer 


Tro oduast % gees: 


We’ll now go through the program line by line, a practice we’ll 
be following for several of the programs in this book. If you 
don’t want to read the detailed explanation now (and there may 
be parts of it which are a bit difficult to understand at your 
present stage), by all means skip over the explanation and then 
come back to it later when you know a little more. 


Lines 1@ and 126 print a number of asterisks to rule off the title 
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and instructions, with blank lines printed by lines 20, 30, 58 and 
256. After the title is printed by line 49, it is ‘underlined’. 


Line {48 waits for you to press any key when you have read the 
instructions. When you’ve read them press any key. Two arrays 
are dimensioned in lincs 158 and 168. We get to arrays ina later 
chapter. For now, all you need to know is that by saying DIM 
B(4) you tell the computer you want to create a fist of objects, 
‘called B, in which the first item can be referred to as B(1), the 
second as B(2), and so on, These two arrays are used for storing 
the numbers picked by the computer, and for your guess. 


H is a numeric variable (we’ve mentioned numeric variables 
before) which is set equal to zero in the next line. In line 419, 
one is added to the value of H each time a black is found, so that 
if H equals four, the computer knows all the digits have been 
guessed and goes to the routine from line 63@ to print up the 
congratulations. 


The lines fromd 18@ to 266 work out the number which you will 
have to try and guess. Line 199 uses the RND function we’ve 
talked about to get four random numbers between zero and 
nine, and stores one each in the elements of the B array. Note 
that the first FOR/NEXT loop of our program appears here. 
The A in line 188 equals one the first time the loop is passed 
through, two the second time, and so on, so that the A in line 
198 changes as well. 


Our next FOR/NEXT loop, which uses C, starts in the next 
line. It counts from one to eight, to give you eight guesses. Line 
230 accepts your guess, using the words ‘Enter guess number 1’ 
as an input prompt. The numeric variable X is set equal to your 
guess, and line 249 checks to make sure you have not entered a 
five-digit number. If you have (if X is greater than 9999) then 
the program goes back to line 236 to accept another guess. 


The next section of the program, right through to line 58@, 
works out how well you’ve done, using a number of 
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FOR/NEXT loops (360-to 420, 440 to 528, 469 to 519 and 534 
to 560). Line 59@ sends the program back to the line after the 
original FOR C=... to go through the loop again. If the C 
loop has been run through eight times, then the program does 
not go back to line 220, but ‘falls through’ line 598 to tell you 
that you have not guessed the code in time, and to tell you what 
it is. Line 61 prints out the code. 


If you do manage to puess it, so that H equals four in line 434, 
then the program jumps to line 638 to print out the 
congratulatory message. Every time you run the program, the 
program ends and if you want to have another game, you need 
to type RUN and press RETURN. To save you this typing you 
can make onc of the function keys print RUN and input 
RETURN in this way: *KEY 8 RUN||M. The “‘||’* comes from 
the | key. You can program the other keys to input useful 
strings like LIST||M, MODE 7||M. The ||M inputs RETURN. 


PACKING ’EM IN 


You can save quite a bit of space in the program (although it 
doesn’t always make it easier to work out what is going on within 
the program, or to pick up errors) by using mu/ti-statement 
fines. With a multi-statement line, you put more than one 
statement to each line number. Each statement on the same line 
must be separated by a colon (:). 


Here is a condensed version of CODEBREAKER produced by 
putting more than one statement on a line in places, and by 
using apostrophes (‘) in lines 16, 20, 5@ and 98. Compare the 
two listings, and see how a little bit of space can be saved with 
multi-statement lines. 
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CHAPTER SIX 
CHANGING IN 
MID-STREAM 


We pointed out at the beginning of the book that, in most 
situations, your computer follows through a program in line 
order, starting at the lowest line number and following through 
in order until the program reached the final line. 


This is not always true. The GOTO command sends action 
through a program in whichever order you decide. 


Enter the following program, and before you run it, see if you 
can work out what the result of running it will be: 


er itty 


This rather pointless program sends the poor computer 
jumping all over the place, changing its position in the program 
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every time it comes to a GOTO command. Here’s what you 
should see on your screen: 


The program starts at line 19, and finding GOTO 5@ there, 
moves on to line 5@ to print out ‘““‘THIS IS 5@’’. It then 
continues on to line 6@, where it finds the command ‘‘tGOTO 
20°’. Without question, it zips back to line 26 to print out 
“THIS IS 20’ then goes to line 36 which directions it to line 8@. 
At line 8@, it finds the instruction to print out ‘“*THIS IS 8@’’ 
which it does. From there it gets to line 98, and finds ‘GOTO 
50°’ which is just about where we began. . . .and starts all over 
again. 


RESTRICTIVE PRACTICES 


Using GOTO in this way is called unconditional. Thecommand 
is not qualified in any way, so the computer always obeys it. 
Another group of words generally found together on the 
computer are IF, THEN and ELSE. IF something is true, 
THEN do something, ELSE do otherwise. IF you are hungry, 
THEN order a hamburger, ELSE go home. IF you want some 
candy, THEN behave, ELSE be bad. IF condition, THEN 
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action, ELSE alternate action. (The ELSE part need not be 
included every time.) The next program, which ‘rolls a die’ 
(using the random number generator) and then prints up the 
result of that die roll as a word, uses a number of IF/ THEN 
lines: 


REM DICE BCLS 
wTt) Liu 

PRINT “CMe " 
GOTH poo 

PRiMy 7 CTWOR 
cL 

PRINT ° THREE 
GIO ioe 

FRIAR “FOUR 
65 GOTO lan 

70 PRINT "Frye 
Pe GOT TOO 

SO PRINT 'S 
POG : 
146 


nar 
tot 


BOT 0 
BO GOT 40 
dacs * BATH Se 
156 IF A=4 THEN GOTO an 
t6Oo IF €A=S THEN GOTG 70 
170 TF A=S THEN GOTO oO 


This is what you’ll see when you run the program: 


CME. 
This 
TW 
Plt. 
SIX 
FSFE 
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eligi os 


PHEEE 


31x 
THREE 


So we’ve looked at non-conditional, and conditional GOTO’s 
to send action all about the place within a program. 


ANOTHER WAY TO FLY 


There is another way to redirect the computer during the course 
of a program by the use of subroutines. A subroutine is part of 
a program which is run twice or more during a program, and is 
more efficiently kept outside the main program than within it. 


This example should make it clear. In this, the computer throws 
a die over and over again. The first time it is thrown the 
computer is throwing for itself. The second time it is thrown for 
you. After each pair of dice has been thrown, it will announce 
who is the winner (highest number wins). The program uses a 
subroutine to roll a die. Enter and run the program, then return 
to the book and I’ll explain where the subroutine is within the 
program, and how it works: 


hasty 
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re 
Oa Suab Rowe’ 2 re 
Lao 
Let Say UE Pend beech a 78D 
1G ve, fe bec a 
" ; i) 


Lac FOR T=} TO Looe: NEXT 


La AE TIN 


This is what you’ll see when you run it: 


T Rolied «a 
You Folie a 
TO ial dis 


{ Moda ec 


i Walled a 3 


Yona Berb bear) a 4. 


YORI iT N 


The program pauses for a short while on line 1, and then enters 
the C FOR/NEXT loop. When it gets to line 30, which it does 
(of course) once each time through the C loop, the program is 
sent to the subroutine starting at line 180. The ‘die is rolled’ in 
line 114, and the numeric variable D is set equal to the result of 
the roll. The next two lines print out the result of the roll, using 
an IF/THEN to determine whether the computer should print 
“TROLLEDA ...’’? or “YOU ROLLED A ...”’. There isa 
slight pause in line 146, and then the computer comes to the 
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word RETURN. The word RETURN signals to the 
computer that it must return to the line after the one which 
sent it to the subroutine. In this program, the relevant line is 
4, because line 3@ sent the program to the subroutine. 
There, the IF/THENSs in lines 40 and 5@ determine whether 
ithe value of the roll (D) should be assigned to the variable A 
or to the B. 


Line 6@ ends the FOR/NEXT loop, and then lines 74 and 80 
determine whether the computer has won (which it will have 
done if A is greater than B, a condition which is tested using 
the > sign in line 76) or whether the human has won (which 
will happen if A is less than B, a condition tested in line 80 
by use of the ‘less than’ symbol, <). From here, the program 
goes back to line 1@ where it starts again. 


Study this example until you’re pretty sure you know how 
subroutines work. 


LET’S ROLL AGAIN 


You may wonder if it is possible to change the earlier 
program, which changed the number rolled by the die into a 
word, using subroutines. The answer is ‘yes’, although the 
program with subroutines is not much shorter than the 
version using GOTO. Here’s one way it could be done: 


10 REM DICE ROLLS 


20 OT Lom 
0 PRINT "CUE! 
OS RETURN 


$0 PEND @ Tec 
45 RETURN 

SO PRINT “THREE? 
So RETURN 

OO PRINT POUR! 
4S RET LRM 

7O PRINT OF PVE? 
PS) RETURN 
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COMPUTED DESTINATIONS 


Your computer is capable of accepting a number, an 
assigned variable (such as B when it knows what number B 
represents) or a combination of these as instructions on the 
line number it should go to. In the previous program, you'll 
see that the GO SUB destinations get larger in a regular way, 
and the number rolled by the die also increases in a regular 
way. We can use this information to tidy up the section from 
lines 118 to 176 in the previous program, so that it looks like 
this: 


eee oe 
PARLE 
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OS PEE TUE 
POO DLMPY st 
iO ASR OG) 
120 GC 
[ao BOTO 13886 


EES CSD PUI wey 


Another way of condensing GOSUB statements is the use of 
ON. When you see the statement 


ON A GOSUB 166,264,726, 1600, 1 


the program will go to the subroutine at line 16Hif Ais 1. If Ais 
2 the program will go to the subroutine at 206, if it is 3, the 
program GOSUBs to 726. This is useful if the places to be 
GOSUBed to are not in a regular number sequence. 


Here is the same program using ON. ..GOSUB 
PO REM OF OE ROLLS 
A BET LIRA 

FR TAT CONES" 

nS ETO 

40 PRINT "Tac 

aE AE TURN 

SO PRINT THREE ® 


a 

oO FR TMT! CLR 
Wi BE PL ies 

SO REM E Yi DME? 

SAS BEST LRM 

oO FRY? "Sie! 

BS RET LIAB 


(0 GUpiety =e 4 

11 ASR Ca) 

(20 ON A GSU 30,40, 50,60, 70,80 

(AO GOT ioe 

If yourun this, you’ll see it performs in exactly the same way as 
the other versions. 


CHAPTER SEVEN 
GETTING INTO THE 
MUSIC BUSINESS 


The sound command is a great way to add life to your 
programs. It is amazing what a little sound can do to enhance a 
program. 


SOUND is always followed by four numbers. The first number 
is the channel which the sound is to be output from. Imagine 
there are three loudspeakers in the computers. Each of these 
speakers has a number (1, 2 and 3). In the SOUND statement 
the first number tells the computer which speaker to output 
from. The second number defines what volume is to be used, 
ranging from a @ (silent) to — 15 (loudest). The third number is 
the pitch and is a number ranging from @ to 255: each of these 
numbers has a separate note, @ being the lowest in pitch. They 
are similar to the musical scale in that the pitch rises in quarter 
semi-tones with middle C having a value of 53. The fourth and 
final number in the statement tells the computer the length of 
time the note is to be sounded in units of a twentieth of a 
second. Here is a program which demonstrates the pitch range 
of the SOUND statement 


iO RHEM SOUND i 
So REM 


chanme] =] 


ee Te a 


OO dur sbi ors] 
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wirdLimes, rrovh ee. chiar 


‘This program used only one ‘loudspeaker’ (or channel). If you 
use three channels at the same time you get a different effect as 
this program demonstrates: 


pO PRESS ESS CILMES t 


op Buhl 


athuimach icon 


mired. ed are, Pie 


varies | 


meat 


If as in this next program the pitch is slightly different for each 
channel the sound has more depth and chords can be 
introduced. 


PU PEE: pi 


channel. volume, mobetohar 
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The pitch values need not be similar of course. Try this 
siren-effect program: 


Tupak ion 
3, durpakioan 


PCT, 


> clurakidn 


MEAT 


There is yet another channel available for your use numbered @, 
but that does not produce notes — it produces noise. This next 
program demonstrates the range of sounds available from the 
‘noise channel’. Press any key. You will hear eight different 
kinds of sound. Pitch @, 1 and 2 are different kinds of periodic 
frequency noise: high, medium and low. Pitch 4, 5 and 6 are 
different kinds of ‘white noise’. Periodic frequencies sound 
like buzzes whilst ‘white noise’ sounds like the hiss heard 
between TV stations/channels when you tune a TV. 


Pitch values 3 and 7 on the other hand give you more than three 
pitch options for periodic and white noise. The pitch of the 
noise is defined by the pitch of loudspeaker 1. If we turn the 
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volume off loudspeaker channel 1, we can hear the different 
pitch of the noise: 


This next program demonstrates the sound of varying pitch 
periodic noise. 


SXCHIMENS a2 


4th vou dk imeem | 


Po ue akon caryss | 


fur ah. 


fobome, 3, churata mr 


sr ! ai OF a or 
moo wae: BP red hey 


Input this line to hear the same in white noise: 
So DOU wwe. 8 cuir akion 


See chapter 12 to find out how you can create actual tunes with 
your programs. 


There is another complicated sound command called 
ENVELOPE, which can vary the note being outputted by the 
SOUND command. Sound usually outputs a note with the 
same volume and pitch, that is when not controlled by 
ENVELOPE. The sound envelope is divided into two parts: the 
pitch envelope and the amplitude envelope. The pitch envelope 
is then sub-divided into three sections for use by the 
ENVELOPE parameters. The syntax for ENVELOPE looks 
like this: 


ENVELOPE N, U, CS1, CS2, CS3, NS1, NS2, NS3, CASA, 
CASD, CASS, CASR, TA, TD 


N = Envelope number (1 to 4) 
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U = Units to be used in ENVELOPE in hundredths of a 
second 


CS1 

CS2}= Changes in pitch per step in sections 1, 2 and 3 
CS3 

NS1 

NS2{= Number of steps in section 1, 2 and 3 

NS3 


CASA 

CASD?}= Changes in Amplitude per step during Attack, 
CASS Decay, Sustain and Release phases 

CASR | 


TA = Target amplitude at end of Amplitude stage 
TD = Target amplitude at end of Decay stage. 


As you can see there are many parameters needed to produce a 
sound. 


The pitch envelope as we mentioned earlier is divided into three 
sections, 1, 2 and 3, each of these parts have two parameters: 
the change in pitch during one ‘step’ and the number of steps in 
that part. This means if the CS1 (the change in pitch per step for 
section 1)is 2and the NS1 (the number of steps in section 1) is 10 
the pitch will rise 20 notes during the ten steps. The length of the 
‘steps’ is defined by the second number, in hundredths of a 
second. 


The method by which the amplitude ENVELOPE is worked 
out is slightly different — in each of its four parts Attack, 
Decay, Sustain, Releasc each has a rate of change (CASA, 
CASS, CASD and CASR) but has no variable to dictate the 
length of time these four parts should continue changing. In 
our pitch example, the pitch was raised for 9 to 2@ using the 
number of steps set by the variable NS!. However with 
amplitude a target level is given and the computer works out the 
number of steps needed to get to that level. 
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But, as you.can see there are only two target amplitudes — for 
the first two sections (Attack and Decay) the target amplitude 
for sustain is not specified because sustain keeps on ‘sustaining’ 
until the end of the envelope (defined by the addition of the 
number of the steps during the pitch envelope multiplied by the 
number of centi-seconds per step). And the Release phase goes 
on until it reaches @ volume. 


Here is ‘a short program for you to explore the versatility of the 
ENVELOPE statement. Use the cursor keys to copy and alter 
the previous envelope. 


ti. TY 


1G REM Envelone 


ENFLI 


beg Ae 


60 
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CHAPTER EIGHT 
MAKING 
COMPARISONS 


We all know the equals sign (=) and we’ve seen it in use in 
several program so far, We’ve also seen the greater than (>) 
and less than (<) signs. At this point of your learning, we 
thought it would be useful to briefly recap on what each of these 
signs are, and what they mean: 


= equals 

> greater than 

< less than 

>= greater than or equal to 
<= less than or equal to 
<> not equal to 


You'll see these in use in many programs in this book, such as 
this next one, which allows you to challenge the computer to a 
game of BRICKBAT, written by Graham Charlton. 


This is the listing for BRICKBAT. 


Bedicknak 
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Pu 
Bo pope | 
90 PROC nitialise 
Lory 
110 REPEAT 
$20 PROCscreean 
Lm 
140 REPEAT 
eo FROGCmove 
i160 UNTIL Lo 
was) 
180 UNTIL © 
Lo 
200 FROCend 
210 
meg DEF PROC Screen 
Bag COLOUR 3 
a4 PRINT =" 


Fi 
f 
Soh eee meg sms saeg Stee ets ge ce me em tee ee 1 
i 
1 
1 
4 


oie ty Se stg St Sets Se et Be Se 


te 


2g0 PRINT "tg 
mo NEXT 

BOO MEXT 

S10 COLGUR Pie 
Seo FOR Yes TO BS 

220 FRINT TARCO. T)" Pe TAR(S, TUT ff 

3 NEXT 

Sie 

360 VOI SOsPRIMNT SCE O'TARLISILILE TABS 


LoHTs Ge 
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on 


-ty d= 192 Y= Lo+RNO Ca) 


DEF PROC: 


Fingaimt O24 v) 


ir 


PRINT 
Mabie CINKE 


a ry AND Pode o 


SOLVLHME go) 


Wan dor ded 


SoM aWD Xohee THEN PRG 


TAH OX CF 


TRB CE. ya? 
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&abir 
550 
440 DEF PROCLose 
670 LIsti-J 
acy PRINT TAR(G, 27)" 


ib 


690 ENDPROCS 


Pia 


DEF PROC rect 

Oo De~D 

IF x=M+% Cac 

IF XoM+S Ce 

TF XeheS C=~1 
SOUND 1,-15,150,% 


DEF FPROGdir 
SOUND 1,-15, 250, 5 
SCSS+ i 


TP O=—-) SND RAO CG)26& PHEN Deis GoTo 


IF D=1 AND RNO(6) 25 THEN Det saciTy 


Daf 
PRINT Tek.) Sila 
ENDF RG 


THEF MrPRERQCinitialise 
Faaty : 


VDU 19,0,4,0,0,0,0,6 
VDU SEs SRR s Oro og 


970 ENDPROC 
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In BRICKBAT, you use the Z and X keys to move the little 
‘black slide at the bottom of the screen back and forth, 
bouncing the ball off it (if you can). As the ball bounces up to 
the coloured X’s above, it will strike them, making a sound, 
adding your score and causing the ball to disappear. You have 
ten balls per round. It is fascinating to see what happens if the 
bal'. gets momentarily ‘trapped’ inside the bricks, bouncing off 
them wildly, before it finds a way out and down. You’ll see how 
effective this can be when you run the program. 


Notice that our ‘comparison symbols’ (less than, and the rest) 
are used frequently in this program. They perform a number of 
tests in conjunction with IF/THEN statements, bouncing the 
ball off the slide at the bottom of the screen, the walls or the 
bricks, deciding when the ball has missed the slide, and 
continuing the game if (in line 169) you still have a ‘life’ (that is, 
ball) left. The program restarts itself and can only be stopped 
by using ESCAPE or BREAK. If you do happen to press 
BREAK it is similar to typing NEW, in that it appears to delete 
your program from memory. Fortunately all is not lost. If you 
now type OLD before doing anything else the program will be 
restored to its original self. 


The words AND and OR are also used in comparison lines, 
chaining two or more tests together, as in line 476. They work 
as follows: 


AND The computer does what follows the THEN if both 
of the conditions chained by the AND are true 


OR Thecomputer carries out the instruction following 
the THEN if either of the conditions are true. 


Let’s see how this works in practice. In line 479, the computer 
checks to'see IF you are passing the M key AND if Mis less than 
34, and if both these conditions are true, moves the slide one 
square to the right. Lines 506 and 519 bounce the ball off the 
side walls. They check to see if the ball is about to hit the left 
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wall (IF ¥Y + C< 3)or, in line 516, if the ball is about to hit the 
right wall (IF Y + C> 37) and if either of these conditions is 
found to be true, the computer ‘bounces’ the ball, by changing 
the value of C, the variable which determines the change in the 
position of the ball across the screen from move to move. 


CHAPTER NINE 
TWO GAMES AND A 
SPEED TEST 


It’s time now to take a break from the serious business of 
learning to program the computer. As you can see in this 
chapter, we have a couple of major programs, which use many 
commands that have not yet been explained. We suggest you 
enter the programs just as they are, play them for your own 
enjoyment, then come back to the explanations which follow 
the listings affer you have mastered the rest of the book. We do 
not think it is fair to keep you waiting for major programs until 
you’ve covered everything on the computer, so have decided to 
supply you with these programs at this point, and hope you’ll 
enter then ‘on trust’, returning to this chapter for the 
explanations when you feel you are ready. Of course, you do 
not have to enter the programs right now. If you’d prefer to 
read the explanations first please do so. 


PLAYING ALONE 


Our first listing allows you to use your computer as a solitaire 
board. It is believed that Solitaire was invented by an 
‘imprisoned nobleman in France in the late 16th century, and 
was brought into England in the closing decade of the 18th 
century. 


The aim of the game is simple to explain, but not so easy to 
achieve. You start on a board which has 33 positions marked. 
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There are ‘pegs’ in 32 of the positions on a real board, and the 
middle position is empty. To play, you simply jump over any of 
your pieces vertically or horizontally, so that you end up in an 
empty position. The piece which you have jumped over is 
removed from the board. The aim of the game is to end up with 
just one little man in the centre position. 


As you can see, you are told the number of the move, and how 
many pieces are left on the board. You move by entering the 
co-ordinates of the piece you want to move, using the number 
down the side first, followed by the number across the top. 
These are entered as a single, double-digit number. If you 
wanted to move the piece which was two positions below the 
central hole at the start of the game, jumping into the central 
position, you’d enter 64, then press RETURN, followed by 44, 
and RETURN again. The board is reprinted, and you are then 
offered another move. 


Here’s how the program starts: 


Enter side coa-ord’s first 
Enter 99 to coancede 
13 2458 6 ? 


1 # HH # i 
= eo + Zz 
2 # FRR HH HS 
et # # *# Ht HH HF 4 
= ¢ # et # HH HH OS 
6 # # # & 
7 eo OH # 7 


i2ea45 4 7 
Moves so farsi 


Which peg doa you want to move? 
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[Oo REM Saliteaire 
Oo REM 
oO REY 


eo FOE 

joo FRAC aa t 

FEREAT 

130 PROCprink board 


140 PROC aan 
130 UNTIL Cet 


17oO FRDCend 


[fo DEF FROG] oop 

200 BEM Accept Kove 

299 SOUND 1,15, 2 
220 PRINT TAR CL, 2li gl @s "Which pee do v 
1 t 

TMeLIT 4&4 

PRINT TAR C1, 21)" 


IF A=O9 THEN 400 
TF Asad GR AS??? THEN 1c 


ba mene? § 


Nog 
bs 


“ INPUT & 
310 PRINT TABCI, 21)" 


SEO IF Eid OR B27? THEN 280) 
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330 
340 
350 
340 
370 
SRO 
390 
40d 
410 
peas 
ayo 
440 
440 
450 
44,0 
3 "You 
0D 
4a7o 


IF ACHI< VE THEN 280 

SOUND t,-35,102.5 
ACCA+B) /2)=Es ACAD =E: AB) =P 
M=M+1 

C=0 

FOR F=11 TO 7& 

IF ACF)=FP THEN C=C+i 

NEXT 

PRINT TARCS, Liclés"Vhere are *3035" 
on the beard " 

ENDF ROC 


DEF FROGCend 
1F AC4$4)=PF THEN PRINT TAGEL.22)r1% 
did itt’ ia gust "IMi" moves! !":EN 


PRINT Pabli, 22 }bigi"VYou failed! 'Ga 


me over... "SEND 


480) 
4ou 
Ter 
Bio 
cede” 
S20 
34 5 
52.0 


540 


ne wv i 
550 
petal 
570 


DEF PRO print board 
PRINT TAR(C6, Somlei"Enter &Y ta con 


PRINT ” "Srl@inbSsylts" 1 2 
& 7 "Sbb 
PRINT ™ “ErlbenbSayl $s" 

"Yhbs 
PRINT “ “SEP RINREE EES" "Sbhisq 
FOR petit TQ 75 


TelO# CINT (D410)9 
TF D-f=8 THEN D=D+tSsFRIMNTH yl Bs T/10 


5" “ghbssPRINTS MErlSEndss yl HIT / 10+ 
igblas" "3 


SoD 
a9) 
Stu 
610 


eae 
o 45 
630 
thi) 
esha 
treet) 
rte 
4550 
490 
Foo 
“F7tG 
720 
cane 
FAG 
750 
Fao 
770 
FRO 
79 
HOO 
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VBU AD), 32 

NEXT 

FPROINT Ss " "Ssyl@i"7 “sbbs 

PRINT " "Srlibenbdts yl th" 

; "Stbs 

PRINT " "Srl@snbss yl) 3" Li 
& 7 "Shb4 

FRINT TAR(CO,I9) "Hooves 30 fare "3M 


PREC? 7 
ENE REI. 


DEF PRIWLINit 

YVPU 233 82029050505 
CLs 

FROCcCalours 

DIM Ai?) 


OF ae 


FOR D=§i TO 75 

T=10e ¢INTID/19)) 

(F P-T=6 THEN D=D+3 

READ AC) 

NEXT 

FRINT TAGE, £2413 "Enter side co-o 


ra-s first" 


mio 
B20 
+ 
640 
BIO 
GEO 
aa) 
Bae 
BPO 


Ma 
CNDPRGC 


DEF PROCcolours 
dils=Crikt 141 
elses 129 
gQis=CHR 120 
YI$S=CHRE LL 
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900 bLlS=CHRS 132 

PLO migeCHRS 133 

920 Gl@=9CHRS 134 

P9350 nbosCehs 157 

94G bbS=CHRE LAG 

Yao ¢1 b=CHeS 136 

FeO ENDFROC 

ese) 

FBO DATA B32, 32,55, 55— 25, canoe 
990 DATA 32, 32,355,725, 35, 32,32 
1000) DATA 35, 3%, D5, 55, So. 25, 55 
1010 DATA 35,35,25.42,25,35, 35 
1020 DATA 3, 25, 35, 35, 35,355,359 
1OBO PATA 32, 32.55, 35, 35, 32, Sa 
1H40 DATA Se, 3, 39,35, 35,52, 52 


10 REM Seliteaire 

20 REH 

30 REM By Ale Gollner 

40 FEM . 

SO PEM (cd) A. Goliner L935 
oO REM 


Fo 

8O MODE I 
Su 

100 PROCinit 
M10 


L220 REPEAT 

i350 PROCprint poarc 
140 FPROCLoop 

ISO WNTIL. Cad 

160 

170 PROCend 

180 

19790 DEF FROG oop 
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200 REM Accept -icve 

240 SGUND 1,-15,200,5 

220 PRIM TABCL, S22) "°Which peg do yeu w 
ant ton moves 

Sho THPUT & 

a0 PRINT TABI, 22>" 

S50 LF ae99 THEN FPROCendd 

“Seer JP A¢li UR AS77 THEN 22e 

eto TR Aaday <oP THEN B20 

“Ro SOUND $.--18,150,5 

TV? PRINT TABCLi.22)A3" to.."§ 

S00 EMPLIT Es 

Sh PRINT TABCL, 22)" 

“toa TF Be 1 (We BFF THEN BOO 

Sue TP ecto cE THEN 2¢a 

S40 SOWAD 1yn th, 10245 

S50 Cate oe ET ACAD RE ey CE) ep 

SACL PeP Ey 

S/o O=0 

Te FOR Feil TO 75 

S9O LF AP eh THEN CHO), 

900 WE XT 

410 ENDER 

420 

asd 

4490 DEF PRrend 

450 TF Aat4dagieh THEN PRINT TARCL,@2i" ¥ 
ou did at! i an gust “site” moves! ("SEND 

4450 PRINT TAL, 22)"You tailed! 'Game a 
ver... ":iND 

ATO 

4tu 

490 DEF FPROCprint ooard 
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500 CH OUR 2 

Sig PRINT JAaRCS, lL) “Enter side co-oard’: 
first" 

SOO PRINT? *? TABCG) “Enter 99 to concent 


S30 COLOUR 3 

S40 FRIMT’" 12S 4s eS 7 

s 

550 PRINT?" a: Ay 

S460 COLOUR 1 

ofc) FOR Dei l TO 7% 

S80 T=1O" CINT(D. 101) 

570 IF D-T=8 THEN D=D43: COLOUR 3:PRINI 
SCHRBCI27I3" “ST/1LO5" "sFRINT" 
"sT/1O*¢Ls" "Ss COLOUR | 

400 VDU A(D).32 

510 NEXT 

620 COLOUR 3 

430 PRINT? " ys 

640 PRINT?" 123456467 

S50 COLOUR 2 

460 PRINT *"Hoves so far:"3M 

470 PRINT*? 

680 PRINT TAR(O, 26) "There are "sts" pre 
He on the board " 

290 ENDPROC 

7OW) 

FLO 

720 DEF PROCinit 

730 VDU 23, 235,60, 128, 125,60, 24,274, 24, 


tA 


o 
TAQ VOU ON, 235.0, G0050,60, 195, 60.0 
750 VDU 19.0.4,0,0,0,0,0 
760 VDU 23SB20281O5 OF08 
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770 ELS 

7H DIM ALBRY) 
790) E=234 
EV fts= a] 
£43 Cy) Cees 
2. FUR D=il TO 75 
ASO Te1Oe (INTID/10)) 


apo TE O-'=8 THEN p=D+S 
MoO READ ath? 
etese? BH 


He pps 


(4h MDP 


Sas Dea ee 
ae ee 
6 THATS 
er Pe hy 
2) De 


“ith DFA Pee 


Yeytd Ed¢a | fa 


You may have discovered by now that your computer has 
various display MODEs. All the modes are different and can be 
used for different applications. The previous program 
‘SOLITAIRE’ had two versions, one in MODE 7 and the other 
in MODE 1. 


Modes @ to 6 are similar in that they all use the same character 
set, but some modes take up more memory and have different 
character widths. The first three modes (@ to 2) use the same 
amount of memory but have different features. 
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The MODES with more characters per line have thinner 
characters so that they will fit on the screen, 


In this book most of the programs run in either MODE 7 or 
MODE 1, this is because MODE 1 has clear graphics, four 
colours and clear lettering (this is good for action games). 
MODE 7 has the clearest character set (alphabet) and is the odd 
MODE out. To convert programs from one MODE to another 
a few changes are necessary. 


MODE 2 3 a $s 6 7 
Lines of text Bit_nmrns wes: 
Characters perline;} 80 40 20 80 40 20 40 40 
Graphics ' 1¥es Yes Yes No Yes Yes No No 


The two previous programs showed the different advantages of 
MODE | with its user-defined graphics to MODE 7 with clear 
text and colour handling. 


In the MODE 7 program the colour is controlled through the 
use of strings of control characters (like CONTROL G) they are 
used in the form of string variables related to what they do — 
here arc some examples: 
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rl$ =CHRS§ (129) (Red letters) 
nb$ = CHR$ (157) (New background) 
fl$ = CHRS (136) (Flashing characters) 


See chapter 12 for more information on MODE 7. 


TESTING YOUR SPEED 


Our next program, REACTION TESTER, is much shorter 
than Solitaire, but just as much fun to play. You enter the 
program, press RUN, and the message STAND BY appears. 
After an agonizing wait, STAND BY will vanish, to be replaced 
with a flashing notice: ‘OK, PRESS THE ‘Z’ KEY”’. As fast as 
you can, you leap for the Z key, and press it, knowing that the 
computer is counting all the time. 


The Computer then tells you how quickly you reacted, and 
compares this with your previous best time. The best score so 
far appears on the screen, and the computer then waits for you 
to press a key. The game continues until you manage to get your 
reaction lime down to below a tenth of a second which is not an 
casy task! 


Here is the listing of REACTION TES1T: 


10 REM Reaction Test 
20 REM 
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60 REM 
7O 
80 HISCORE=500 
90 CLS 
LOO PRINT TAR(10, 5) "STAND 
BY ose pin ainiade 
110 FOR A=1 TO S000+RND (1500) 
120 NEXT 
130 PRINT TAB(LO,S)"O.k. PRESS THE 


4 

KEY" 

140 TIiME=0 

150 REFEAT 

loo A= TNEEY fa) 

i7O0 UNTIL @=90 

LG Ge T Lee 

i9O PRINT *? "Your Scare Was., 
"3G/1003" Seconds. ." 

200 Tr GKHISCORE THEN HISCORE=G 

2190 PRINT °* "Se the beet score so far 


is "“SHISCORE/ 100°" seconds...” 

220 DUMP = Ge T 

230 TF HISCORE>10 GOTO 90 

240 PRINT *? "Well Done...You’re the 
Chamot i" 


Line 8@ sets the variable HISCORE to 5. The variable TIME 
is set to zero in line 14@and is incremented by 1 every 1/160th of 
a second by the computer (this is a feature of BBC BASIC for 
use in timing). The computer REPEATS UNTIL the Z key is 
pressed and the variable G is set to the value of TIME when the 
computer comes out of its keyboard checking loop. There are 
two ways of checking the keyboard using the keywords INKEY 
and INKEY$. These are both followed by a number of 
brackets. This tells the computer how long to wait before it 
gives up searching the keyboard. The only difference between 
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the two INKEY commands is the fact that INKEY reads the 
value of the key pressed while INKEY$ reads the string 
produced by the key pressed. If either of these is followed by a 
value of @ in the brackets the keyboard is read when the 
program exccutes the line. They thus check if a key is being 
pressed when the INKEY command is executed. If no key is 
pressed during the time limit set then a null string (“‘ ** — a 
string of no length) or — 1 is returned. 


The keywords GET and GETS work in the same way except 
that they make the computer wait until a key is pressed before 
the program continues. 


G is compared to the best score (variable name HISCORE) in 
the following line, and HISCORE is adjusted to G if G is the 
lower of the two. 


Line 230 checks to see if you have managed to get a score lower 
than | /1@second, and if you have, does not loop back to line 90 
but prints the **Well done... you're the champ!”’ message in 
line 240. 


A CORNER ON GO 


Our next program is a fascinating one. It allows you fo play 
against the computer in the Japanese board game Hasami 
Shogi. Whereas the board games with which you might be 
familiar — such as Chess and Checkers — are played on an 
cight by eight board, Hasami Shogi is played on a nine by nine 
board. The corner of a Go board (19 by 19) is often used. 


Each player starts the game with 18 stones. Your stones look 
like letter ‘‘H"’, and the computer's stones look like letter ‘*C”’. 
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You start at the bottom of the board playing up the screen, and 
the computer starts at the top. The aim of the gameisto capture 
seven of your opponent's pieces. Actually, in the real-life 
Hasami Shogi, the aim of the game is to capture all of your 
opponent’s pieces, but — as you'll see when you play this game 
— that would make each game fast a long, long time. 


You take it in turn to move, and you can move only one piece 
per turn. You move vertically or horizontally, but not 
diagonally. With each move, you have three choices: 


— youcan move into a vacant square which is above, below 
or beside your piece 

— you can jump over one of your own pieces into a vacant 
square 

— you can jump over an opponent piece into an empty 
square 


Unlike Checkers, a piece which has been jumped over is not 
captured, and is not removed from the board. The only way 
you can capture a piece is by moving so that your piece fraps a 
computer piece between two of yours. It captures your piece in 
a similar way. You do not lose your piece simply by moving in 
between two computer pieces. Therefore, you aim to get your 
piece next to a computer piece, with an empty square beyond 
that, so you can move into the empty square on a subsequent 
move. 


iO REM Hasami Shoai 


20 REM 

60 REM 

7O 

60 MODE 7 


90 
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190 PFOCinitiaiise 


i2oO REPEAT 

1306 PROCcomputer _move 
140 PROCprint_board 
150 FROCplayer_ move 
140 FROCprint_board 
470 UNTIL FALSE 


200 DEF FROCcomputer move 
Zid A»s9o 
720 TF ates oC THEN 300 
SO [FE ACA~1O)=E THEN IF AlA-9) =H THEN 
(F @¢4-3)20 THEN B=A-1OsGCrTd 470 
Sau LF ACA-1OGSE THEN IF ACA-11) =H THE 
MTP ACA‘ 22 =0 THEN BeA-tOu GOTO 470 
> TP &Ca-1O}sE THEN IF ACA411)2=H THE 
MoOLF hard 226 THEN BeA-LO: GOTO 47 
Pore) ae so 
270 TF atte (Bo< il OR Atr240 0H) 9% THEN 
nO 
Rao TR earl B= AND AlAt2eO(B) 7=H A 
NO A(ee3e6 ()2=C THEN A6A+2*C (CR) SE CO=C 
SehyGih 450 
vo TP 864 THEN B=R+1,G07O 270 
"OO ITF AbdLI THEN A=A-1sGOTG 220 
$10 REM NON-CaAPTURE 
ARO count=0 
SSO countecount+) 
340 S=RNDCL)*e7+10 
380 TF ACA=E THEN S50 
3o0 LF countsaced THEN 33u 
370 PRINT"You are now the Hasami Shagi 
Hiaster.."? "I give you the victory! ":END 


_— 
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SBO he} 

S90 IF A@e2eC tho cil) THEN 410 

400 TF (ACAtC ERI =0 OR 4(440¢(B)) =H) AND 
ALAtZ#C (ROSE THEN FieA+?eC 1B) 2 GOTO 470 

410 IF \ACAth (BR) =E THEN 440 

420 TF Bed THEN G=GB+1:G0TU S90 

430 GOTO 340 

440 KEM COMPUTER MOVES 

450 B=A+C <(B) 

460 FOR T=i TO LOosNEXT 

470 Bi=B-10*# CINT(B/1O)> 

480 ACEO =f: ACA) =f 

490 IF BS>7 THEN Sis 

SOO TF ACH+I SH AND Ailey) THEN ACE+ 
1)=E:sCS=CS+1 

S10 IF Bix THEN Sao 

S20 IF ACB-1)=H AND AB-2)=0 THEN AE- 
L rH LGelSed 

S30 TF 4°89 THEN 550 

S40 TF ACR+LO) mH AND ACB! AO) sl THEN Ad 
B+iO mE: CS=ClS+1 

SSO €F As29 THEN ENDPROG 

S60 IF A(B-10)=H AND ALE-2O)=C THEN Al 
H- Lo ees CSHCS+t 

"70 ENDPROC 

SAO 

S90 

600 DEF PROCprint beard 

610 VDU 30 

620 PROENT TABCL2, 22) 3CHR$(t4l) gbbsimis 
s"HASAMI SHOGI"Bbs 

650 PRINT TAB CL2, 22.4 CHRSCL4IL) tb bts mis 
+ "HASAM! SHOGI"Ebs 

640 PRINT TARSIG, 2) bbSsrl#i"l 2 3 4 5 
6 7? 8 9"*3 Bhs 
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450 FOR M=90 TO 10 STEP -190 
660 PRINT TARE, (C100-M) 410) +2) bbb gl s 
ro ce ee: 
670 FOR Nei Th & 
690 PRINT$s e153 CHR€ (9 (4+N 14 
6&9) NEXT ‘ 
700 PRINTS al 3 CHR (M/ LO4+64) 5 Bb Ss 
710 NEXT 
720 PRINT TARCIO. LZ) bbasrl$si"i 23 4 5 
& 7 & O° bib 
7h PRINT TAB C4, 15) “Computers "sCS 
P40 PRINT TA 64,16) "Humans "$HS 
FSO IF CS'4 GR HS>6 THEN 770 
760 ENDFROC 
770 IF CS*HS THEN PRINT’ * "LT win fitivs 
Ett 
7RO PRINTT? “You win '!! '*eEND 
Po 
OHO 
810 DEF PRUCplayer_move 
eo YDU 31.4,149 
£20 SOUND 1, -iS, 200, 5 
840 INPUT "From (letter, No.) ", At 
See TF Abe!" THEN ERD 
Heo IF LEN CAS eo >S THEN Ban 
876 VOU 11,549, %sPRINT " 
BESO SOUND 1,-15, So, 8 
B90 VOU 31.4, 20:PRINT “From “sAts" to 
“Se INPUT it 
FOO TE LEN CRS) ¢>2 THEN son 
910 VOU 1169,9,9:PRINT 4 


' 
920 SOUND 4,-15, 102,5 
YEO Arle CASO (AS) 54) +VAL CR IGHTH CAB, L) 
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Od FLO (AST (R$) -54)4+VAL (RIGHTS (8%, 1) 


9) YEVAlL CNT OMTS (BS, 13) 

960 AB HH: AlRI=E 

970 IF ACK RO AND AtHh+?) =H AND Y<=7 
THEN A¢(B4+1)=E:HS=HS+l 

980 TF ACR-1l)deC AND ACBR-2)eH AND Yor 
FHEN ACB-1) Es HS=HS+1 

O90 TF B79 THEN 1010 

O00 TF ACRAHLOO=C AND ACHK+20) =H THEN AC 
BrlG) 2b: d8=HS+d 

{OoLo TF Tt>=St THEN TF at G1O)=C AND ACH 
~2Q) 2H THEN AB 10) e6sHS=HS+4 

jo20 ENDFROG 

1O30 

1040 

igs DEF FPROCIinitialise 

194609 CLS 

LF VDL SSE SPvotTs OF ys cg 

200 DIM Atl adr, C4) 

{OFO eT S=CHRE Lod 

1100 gl$"CHARE 130 

t1iG elssCHRS 1 T4 

1120 bbeeClHheb IBS 

1130 Fbs=CHRE 3S + CHR 132 4 CHRS tS7 
14140 mléeCHRb JS 

1150 H=72 

11460 (=47 

1170 €=T55 

11680 FOR Z=11 TO 29 

Ligo IF ZJ=20 THEN 7=21 

$200 AZ) = 

ITLO WET 

of FOR ze31 10 79 

12206 TF LO INT(7 710022 THEN Z=Z+1 
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1740 AtCZ)=F 
P2580 NEXT 
1240 FUR Z 
1270 IF z= 


=f1 TO OD 
97O THEN Z=9) 


LEO Coec 

P20 FOR Z=1 TH 4 

1250 READ OZ) 

iS40> MEX 

ISSO PATA -10,-1,1,10 

1260 PROCprint hoard 

1370 FOR T= TO 24 

1380 VOI 31.0,1,148, 157,131 
Los? MEM 

1400 END ROG 


The program may scem very long, but it is somewhat simpler to 
understand than may at first appear. This is because it has been 
written using ‘procedures’. These are lines separate from the 
main program and are called from the program by 
PROCname__of__procedure. To name a procedure, the first 
line of it starts DEF PROCname__of __procedure. The end of 
the group of lines is marked by the keyword ENDPROC, Once 
the procedure has been ‘defined’ it can be called from any part 
of the program. 


Programming in this way is a good idea if you are developing a 
program which you think may be fairly long and involved: 
it enables you to keep track of what each section is doing. 
It also makes it casy to track down dugs (the common 
computer term for a program error, named after a 
malfunction in an early IBM computer which was said to 
have been the result of a moth causing a shortcircuit when 
it had got caught inside the cabinet). If the program is in 
procedures, the procedure which contains the bug is 
relatively easy to isolate. 
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The idea of ‘structured programming’ (i.c. using 
procedures) may become a little clearer if we understand 
how it works in this program: 


MODE in procedures 


Line 140 — Executes PROCinitialise which initialises all 
the variables in the program (starts at line 1050). It also 
calls PROCprint_ board which displays the screen while 
the computer thinks where it will move. 


Line 126 — Starts what is called a REPEAT/UNTIL loop 
— this is a loop which continually executes the lines 
between the REPEAT and the UNTIL, until the condition 
specified in the UNTIL is satisfied. 


For example with REPEAT....UNTIL X> 34 the program 
will loop from the REPEAT line to the UNTIL statement 
UNTIL X is greater than 34. Then it goes onto the next 
line. If after the UNTIL it says FALSE or 0 the loop loops 
forever, or until one of the lines in between the REPEAT 
and the UNTIL goes somewhere else. 


Line 130 — This makes the computer move its stone with 
PROCcomputer__move. 


Line 148 — Prints out the screen with PROCprint_ 
board. 


Line 15@ — Calls PROCplayer_move in which the player's 
move is accepted. 


Line 164 — Prints the board again with PROCprint__ board. 


Line 176 — Loops back to make the computer take its next 
move with PROCcomputer__move, 


There arc four ways the player can get out of the ‘infinite’ 
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REPEAT/UNTIL 8. Firstly the computer or you can win — 
this is detected during the procedure that prints out the board. 
You can concede by entering “‘S’’ instead of your move. The 
computer concedes if it cannot find a move after 20@ attempts. 


The first lines of the HASAMI SHOGI program can be applied 
to nearly any ‘‘computer versus human”’ boardgame program, 


Initialise 
REPEAT 
Computer__moves 
Print__board 
Player__moves 
Print__board 
UNTIL FALSE 


See if you can incorporate procedures in your programs so they 
can be altered with ease. Structured programming also aids the 
readability of programs, for example, IF A$ = ‘* YES’? THEN 
PROCinstructions ELSE PROCstart__game. Note that there 
cannot be spaces in procedure names. 


CHAPTER TEN 
STRINGING ALONG 


You’ll recall that several times in this book so far we have 
referred to mummeric variables (letters like A or B, words like 
COUNT and GUESS, and combinations such as R2D2 or 
C3PO) and to string variables (a single letter followed by a 
dollar sign, such as a$ or A$ is a string variable). In this chapter 
we'll be looking at strings, and at things you can do with them. 


THE CHARACTER SET 


Every letter, number or symbol the computer prints has a 
ASCII code which stands for American Standard Code for 
Information Interchange (pronounced As-key), an industry 
standard. Telling the computer to print the character of that 
ASCII code produces the character. It is casy to understand 
this. The ASCH character code of the letter ‘'A’” has nothing to 
do with the value assigned to A when it is a numeric variable, 
but refers to ‘‘A’' when we actually want the computer to print 
the letter ‘‘A*’ out. We'll put the “‘A’’ in quote marks when 
referring to it as a letter, Try it now. Enter this into your 
computer and see what you get: 


PRINT ASC CCR") 


You should get an answer of 65. Now 65, is the code of the letter 
**A’. We can turn it back into an ‘'A’’ by asking the computer 
to print the character that corresponds to code 68, We do this 
with the symbol CHR$. 
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You can get the computer to print out every character with the 
next short program, which has — as you can see — a very long 
print out. Before running the program, to stop the display 
racing off the screen, press CONTROL N. When the program 
is run it stops when the bottom line on the screen is printed — 
then just touching the SHIFT key will print the next screenful, 
and so on, This is called putting the computer into “‘page 
mode". To get out of page mode press CONTROL O (CTRL 
and O simultaneously). 


10 REM Cnraracter Generation 
—S FOR Aes? TO 255 
) PRINT “ASLiI Character "“sA"e=r>” 
MAND CQ) 
40 NEXT 


You will get something like this, but not identical (our printer 
happens to have a different character set from that of the 
computer, Using this program in different MODES you can sce 
how the widths of the characters differ. 


Some of the characters output by this program affect the 
printer so that the output changes a little in the middle of the 
program. 


ASCII Character 32===, 
ASCII Character 33===>'! 
ASCII Character 
aSC li Character 
ASGll Character 
ASCII Character 27===>% 
ASCII Character 
ASCII Character 
ASIII Character 
ASRL] Character 
ASL Character 


4 

SK en eho 
as 

6 

7 

: 
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ASCII 
ASC1i 
ASOT 
ASCTI 
ASCII 
ASCII 
ASCII 
ASCII 
ASCTI 
ASCII 
ASCII 
ASCTI 
AScit 
ASELL 
ASCII 
ASOT 
ASCII 
ASLTI 
ASCTI 
ASCTI 
ALCTI 
ASCii 
ASOT 
ASCII 
ASCII 
ASCII 
ASCLI 
ASCTI 
ASC LI 
aso 
ASCII 
ASCII 
ASCII 
ASET1 
ASCII 


Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Characker 
Character 
Character 
Char acter 
Char acter 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 


AN esmees: "py 
44===>, 
Aj Sy mmase ee [> a 
46===>, 
47 mzziei > / 
48=== 50 
Agza== >| 
Sonex >Z 
Si==2 55 
5 desma 4 
§j=se55 
SActm ': 6 
SSs=<=>7 
Sy dpseence 63 
Jaa >9 
SGiesee Dy 
Sy Porass > § 
OO=se ><, 
© l=enr>= 
é3/P m=: >"> 
games oF 
64=s=7 
&) Spammer 64 
46===>B8 
47ers 
6" >) 
69eue +E 
7O===>F 
7 laa 
7 DeweH 
73au=>I 
FAcae > J 
75ee= ok 
7e=——>L 
77===5M 


ASCII 
ASCII 
ASCII 
ASCII 
ASCT1 
ASCTI 
ASCII 
ASCII 
aAsSety 
ASCII 
ASCIT 
ASCII 
ASCII 
ASC 
ASCTY 
ASH 
ASCII 
Mist LF 
Asli. 
ADOTIT 
ASI T I 
ASHI TT 
ASC t 
MGT L 
ASCII 
ASCII 
ASCII" 
ASCII 
ASE1] 
AScit 
ASCII 
ASCII 
AScLi 
ASCII 
@aScil 
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Cheracter 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 


7S===>N 
79===50 
90=== >P 
Bi===>pP 


Qe: 


Q2===) 
AS===>5 
94===> + 
AS=a== >| 
Gb===: 
B7===>W 
S3=== > x 
BGa=>y 
FOxmm > Z 
Qj === >[ 
i Aeveme '\ 
PR==a=)] 
GAasmem > 
Sse 
9 é==z2:m > * 
GPs Da 
OBsss< sb 
PQ=a= dee 
{OOs== i 
1O12== de 
{ODemm sf 
1O3s2= 54 
LO4s== 2 
105===>i 
1O06=2=>) 
TOFese sk 
{OQ===> 
109=s==>m 
| (O=== oy 
lijs==Fn 
ti2g=== tp 
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AScit 
ASCLT 
ASCII 
ASCII 
ASCII 
ASCOLL 
ASCIT 
ASE LL 
ascii 
ASCII 
ASCII 
ASCIT 
ASCIT 
ASCII 
ASCII 
ASCLT 
Adit f 
AStI1 
AGLI 
ASCII 
ASCTTI 
ASETI 
ASCL EL 
ASLIT 
ASE T 1 
Aascil 
ascii 
aserl 
ASOT 
ASOT 
ASC! 


Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Char acter 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 


Character 
Character 
Cheracter 


Character 
Character 


Cheracter 
Cheracter 


ASCII Character 144===> 
ASCII Character 145===> 
ASCII Character i44===) 


ABCI I 


Character 


LiSs==>q 


1 | Auta > 


1) {9ee= ow 
(2 samem > 
\2is==> 
|\27=s== 
|23=+s= 
Lz4ne=> 


{ 2S eas 


ww 


1 4Q===: > 
4 4 {sie > 
| Aigasere > 


1432e=* 


| 4 7ec= > 


ASC 
ASE tI 
ASUT 1 
ASCTI 
ASCLI 
ASCTL 
HSC 
ABO TT 
ASCII 
ASCII 
ASCTT 
ASCTI 
ASOT E 
ASert 
ASCII 
“ASCII 
mow) 
mol ty 
HOA T 
ASE 
ASCTI 
ASCIT 
eee ae 
pet TT 
(Mist. t) 
f4'3" 
aol, 
rot 
evel 
eat | 
int 


roti 
nol 
MOET 
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Character 
Character 
Char acter 
Character 
Cheracter 
Cheracter 
Character 
Cor it eae tere 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Charac ber 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
Char acter 


Legere > 
LA Sessa 5 
$ S Ocoee 
lSilses=> 
152===> 
1S3e==> 
{S4eanean> 
LSE emer > 
LSgs==> > 
1S 7xe=> 
{5ge=<=<> 
1 5922=> 
1 dy) scars > 
161 mer >? 
167/=22=>" 
1o5er=of 
lo4mare og 
LOS 2%, 
lidar of, 
167 s2=>7 
148===>¢ 
169=<=>) 
17 Qs > © 
17 | ses + 
j 7 em >, 
173tes=>— 
| 74em2= >. 
175<2=2=>/ 
L7 Giese oO 
L77er= > 1. 
17Ge==o2 
179=e=33 
1GOr==>4 
1B1es=>5 


LBomaam os 
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ft 


AGCLll Character 
ASeqtl Character 
SSC EI Character 
ASML Character 
ASCiL Character 
ASCII Character 
ASCII Character 
ASCII Character 
ASCIT Character 
ASCIT Character 
ABC Character 
ASCII L Character 
Character 
[ Character 
Character 
Character 
Character 
Character 
Character 
Character 
th aur ave Teer 
Characher 
Character 
Character 
Character 


Character 
Character 
Character 


Char acher 
ASCLI Charact 
ASCII Character 
AS Character 
a Ui event ese 
ASCII] Character 
ASCIT Character 
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4SC0T1 Character 2 
Character : 
Character 220=s2=*\) 
Char acter é 
Char ac her 
Character 
Character 
Char ach eae 
Character 
Character 
Character 
Character 
Character 
Char act 

Character 
Character 
(har ac ter 
Character 
Char acter 
Character 
Character 
Character 
Character 
Character 
Character 
Character 
ASCII Character 
ASCLTI Character 
ASCOT Character 
ASCTI Character 
I Character 
Character 
Character 
Character 
Character 
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ASCII Character 
ASCIT Character 
ASCII Character 


A more convenient version of this program — which takes up 
less time and space — is as follows: 


FEM Character Generatian 
FOR Ase TO 2355 STEF ih 

0) PRINT $@"s= >" § CHR (CA) 8 We eye | em 
"TCHR (At+di a" ees foes EA OHRE (Ae oM 
PRES sare YE CMR Ct 

40 WET 


You can see from the pHntout, that some codes affect the 
printer output... 
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TESTING YOUR CHARACTER 


Our next program is a reaction tester like the one you 
experienced earlier. However, you are not just being tested on 
speed. Inthis program, you have to try and find the right Aey on 
the keyboard as quickly as possible. 


A letter will appear in the middle of the screen. As quickly as 
you can, find that letter on the keyboard and press it. You will 
be told how long it took you, and this time compared with your 
best time. Notice how the letter which is printed on the screen 
uses CHR$ in fine 108 (find the character of the number, 
chosen at random in line 76, represented by the variable A), and 
A$ is compared with CHR$§ A in line 120 to see if you were 
correct. 


Tneteuch or 


ino 
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130 BeBe] 

140 PRINT TAR(I?7, =)8 

io TF Be. BOOo GOTO iia 

Leo PRINT °* "Sorry, Time’ up '.. 
17o GOTO Bo 


140 PRINT "FP Med) Done... You scored 


ais 
Leo FRINT ' Cr chkhahk ores au 
OO TP RE BEST THEN “ 
4c) RTT OR Stes tes 


ls 


Yet To Bao 


ain be used (6 manipulate strings. It is called ‘string slicing’ and 
warks as follows. The information which follows the string 
determines which parts of the string will be printed. For 
example, i the string was “TRIUMPH” telling the computer 
to PRINT MIDS (“TRIUMPH ”, |, 1) would get it to print “T” 
aitice T is ai position 1 and is one character long. Similarly, 
FRINT MIDS (“TRIUMPH”’’,3,4) would get the computer to 
printap a TUME", since this is the third letter of the word and 
vows on for four tellers. 


When the keyword MID$ is used — the string to be sliced is 
plaved in brackets with some information to tell the computer 
ltow 1a slice the string, MIDS (TEST STRING, start character, 
niamber of characters). The first number tells the computer 
whieh character to sfart printing from, and the second number 
tells it how raany characters to print out. 


There are two other ‘string slicing’? commands — they are 
KIGH TS and LEFTS, They too have the string to be sliced in 
brackets, but with one number only: 


UEETS (TEST STRING, number of characters) 
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RIGHTS (TEST STRING, number of characters) 


in each case the keywords take the specified number of 
characters from the LEFT or RIGHT of the string; 


For example LEFT$ (‘‘Ustkamenogorsk’’,7) = ‘“‘Ustkame”’ 
RIGHTS (‘‘Ustkamenogorsk’’,7) = “‘nogorsk”’ 


The next program should help make this clear. The string 
variable A$ is set equal to ““FLOCCILATION’”’ in line 16, and 
various portions of this are selected by the lines of the program. 
Run it as it is, to see if you can follow through what is 
happening in each line: — 


1? Abe EP LOCC TLLAT TON” 

20 PRINT abet ~- SRT GHTS C46, 1032 "9 RIGHT 
BCS, Lg 

SO PRINT Aiba te - FRE GTS (48, S29 Sa RIGHTS 
(A, 6) 
40 PRINT Qaig tS PGHTE (ae, Bo RIGHTS 
(A, 2 

Sa PRIM) @ebg  - 2LEP TS (eb, 490 OS LEP TOS 
$, 45 

“9 
eG. ; ; 
7O PRINT eg ten HEP TS (88, 9) 2S LEP TS OA 
#, Fy 

SO RYT) eb HHT DE CAS, SD, oe ADD 


~ 


2 FROIN T ens --CLee Te oe, Go Pa Lee Teta 


oO PR TAT Aba Ue OMIDS CAS. oe CEM Db CR 
#, 9,5) 

_ (Om RINT ase" MEDS (G8, o, Bes EMT Ob CA 
6.4, 5 


You'll see this when you RUN the program 


COILLATION-- “RIGHTS (6, LO) sOCTLLATIGN 
LLLAT EON RIGHTS (8%, G) rat TON 
FLOCE TLLAT ROMO RIGHTS (a8, 3). DON 


ore 
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: Wi CT LLAT LON-~ 3 EP TS (AB, 40 2 FLO 
| TLL T TON A. ETS (ab, Sia Ploy 


} 

h 

Ih. i MC aT LCN SLEPT (A$, 9) sFLOCCILLA 
FLAG C EU AT TOA “TDS (Ah, 4) sOCCT 
COU LAT LON 2M TDS (AG, 5.8 CILLA 

Pl CC LRAT LON 2M 10S (AS, o, 59s TL LAT 


Now change A$ in line 18 to your name, or another word of 
your choice, and run the program again. 


PUTTING THEM BACK TOGETHER 


Strings can be added together on your computer. The process 
of adding strings is called the frightening-looking word 
concatenation. You can concatenate two complete strings 
together, or just add bits of them, as our next program 
shows: 


Pose PF LORCTELLATT CN 
aU b=" TTORHOBTA" 

BO hes HAS 

“RINT Sabet doc 

. f NiT at Eis wee UE 4 4 Ets 

INT "Cé- te 
DCL) 

SRA CLO) 

Dé=MT Dé (C8. DED 

F B TNE "DB 5 oe 
; MIDS (AS. ED) 
CIM i 


Dees 


When you run this program, which creates C$ in line 60 by 
concatenating A$ and B$, you'll see results like these two: 
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When you run this program, which creates strings by 
concatenating A$ and B$, you see results like these: 


“SPF LOCCILLAT ION 
~ SS TTORHGRI A 
~SPLOCCILLAT IONS LTOPHOEIA 
TTOF HORTA. 
“ST LON 


2FLOCCILLAT ION 
PTORHORIA 
FLOCCILLATIGONS TTOPHOETIA 
LATIONS TTC 

ON 


Et 3 TT 
Pie > T TOM 


SPLOCCILLAT ION 

ST TOPHOR IA 

~OPFLUCCIILLAT IONS T TOPHORI A 

7S TONS T TOPH 

ATION 

AT LON TONS TTORH 

PLAYING AROUND 

You can do a number of things with string slicing, as our next 
program demonstrates. NAME PYRAMID allows you to enter 
your nate to produce an interesting display. Once you’ve seen 
the program running, you'll understand why the program has 
been given the name it has. 


1O REM Neme Pyramia 


eO REM Using Strine Slicing.. 


320 C18 

40 TNPUT "Tyne in your name piease, . 
" AS 

oO TF LEN CAS) FL OS=LEP TS (ae, 0) 
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: TAR CLS, By tee 
Oo FRR Ged TO & 
Go PRINT TAR CRO—B) 4 
Tee PCE pee TO 2eG 
to PIGINT HiG8 (Ab, 6, bos 
pie MER T 
bao ERAT 
{au NEXT 


AAR AAG AAA 
NINAIRIN MINT 


GEG G0GEGGG56G066G066666 
ROO OO DGC OOOO OOo OO goo 00 
LOR RP RE Ek, 
oO Ro be. 
NENA NN MAR MR SR SA 
FE REE EEE 
RRRRRRRR LFF: 


TILEL EEL ELTIGLLLLGLT LILLIE TUTULILIIG 
VV Uy 


PLAYING IT BACK 


Our final program in this chapter shows one very effective use 
of string slicing, in which a string is progressively reduced by 
one clement. When you run ECHO GULCH, you'll see a letter 
appear on the screen. It will then vanish. Once it has vanished 
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230 GOT vo 

“40 PRINT “You Scored "ab 

END 
PeCMT *F°** "8 Wiel) Donel il Youre th 
Champran!'" 


The variable S, which holds your score, is set to zero in line 70, 
aiid fine 88 sets the string variable A§ to a long line of letters. If 
you look at line 98, you’ll see a complicated looking statement 
beginning with INT, and including RND. This chooses a 
random character from the string so you will get different 
letters each time you run it. 


Line 11@ prints C$, as the random letter from the string, on the 

creen, and line 120 inserts a short delay loop, which uses the 
LEN function. This is another string function, and returns the 
length of a string, that is, the number of characters which make 
ii up. LEN does not make any distinction between Jetters, 
numbers, symbols or spaces, as you'll discover if you enter a 
number of PRINT LEN (A§) statements, after setting A$ to 
equal various words, symbols and sentences. Because A$ is 
sect by one character by line 198 each time the program 


Senticed by line 35 GAlch dictates how long the character will 
be on the screen before it vanishes) becomes shorters. 


INKEY$ 


Line 4@ uses INKEY$ to read the keyboard. INKEY$, as you 
know does not demand that you press RETURN after touching 
a key. INKEYS always returns the key you have pressed as a 
string. 


Line 164 looks at B§$, the variable which is set equal to 
whichever key is being pressed. As you can see in line 160, you 
can use the greater than (> ) and less than (< } symbols, which 
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(and not before) you will have a limited amount of time in 
which to press the key yourself, 


If you have pressed the right key, a short tune will sound, and 
the letter will be replaced with a new one. This will stay on the 
screen for a shorter time. Each time a new letter appears, you 
will be given less time to see it, before you'll have to type it into 
the computer. If you make a mistake, the ‘SORRY, THAT’S 
WRONG” message will appear, along with your score. If you 
manage to get all of a list of letters right, you’ll be rewarded 
with a “YOU’RE THE CHAMP!!’’ message. Here’s the 
listing: 


Ge | f ee kK 


A # =" L CU RDGR CRUY TRELY ERI LY TRMIHGS 
FRR" 
SEM TO$ (A, AND CEN (Add, 1D 


110 PRINT TABCIa,s) Cs 
ino FOR Red TO 1008 LEN (a8) sNEXT 


Bee TARE Yd (03 
$e" OR BBS" THEN GOTO isa 
: TAB yk i BS 


L,- 15, LEN (a8) 


THERM 2Go 


‘FGops... Yo made a mis 
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we discussed in chapter eight, in connection with strings. These 
look at all elements of a string, and compare them in terms of 
alphabetical order (so ‘“‘ZEBRA”’ is fess than 
“AARDVARK”, and ‘BEAST’ is greater than 
“BEAUTY’’). You can compare strings using equals (=) and 
not equals (<>) as is shown in the next few lines of the 
program. Line 186 compares the key you’ve pressed (B$) with 
C$, and if they are the same, continues through the 
multi-statement line to play the sound. 


Line 199 strips the string A$ of its fist character. Line 266 
checks to see if the length of A$ equals one (that is, IF 
LEN(A$) = 1) and if it finds that it is, goes to line 269 to print 
out the ‘SYOU’RE THE CHAMP!!” message. If not, line 218 
adds one to variable S, your score. The program then cycles 
back to line 99. 


CHAPTER ELEVEN 
READING DATA 


In this chapter we’ll be looking at three very useful additions to . 


your programming vocabulary: READ, DATA and 
RESTORE. They are used to get information stored in one part 
of the program to another part where it can be used. 


Enter and ran this program, which should make this a little 
dearer: 


bebe bee ey DATA 
Lb eo 
ey POR gee otc 
Bo RED ace 
OP PTT 6 OTe) 
rut We gy 
Mo Alea S14 tag, dy LPS 


Using line 50, the program READS through the DATA 
statement in line 8@ in order, printing up each item of DATA 
(with line 69). 


RESTORE moves the computer back to the first item of DATA 
in the program, as you'll discover if you modify the above 
program by adding line 65, so it reads as follows: 


iO REM RESD, DATA, RESTORE 
eo DIM Athy 


PRA 


dy eh 
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FOR Bet TO 

" REGO ACh) 

| FRIMT ai) 

oa TF BS THEN RESTORE 
70 NEXT 


i 
HO DATA S141 Bo, 24S 


It does not matter where in the program the DATA is stored. 
The computer will seek it out, in order from the first item of 
DATA in the program to the last, as our next program (which 
scatters the DATA about in an alarming way) convincingly 
demonstrates: 


DATA 4 
REM R 
DATA 
DIM ( 
DATA #65035 

FOR Eei To 3 
Dat A Oo 7a 


DATA Ad 
PRINT (65 
NEXT 


READ and DATA work just as well with string information. 
You can mix numeric and string DATA within the same 
program, so long as you take care to ensure that when the 
program wants a numeric item that a number comes next in the 
program, and when it wants a string item, it finds it: 


Lg REM READ, DATA 
20 DIM Aw CS), ACS) 
oO Bei TO 3 
3), ACE 
60 PRINT Ab lB) TAR CSO) , ACE) 


yy 
4) 


2, G9 793, G2G44, 26433 
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7O MEXT 


9O DATA “Bivaoviviparous" 4495, "Stamini 
terous" , Ose s, "Fhenanthrenequinoane", 215 


a 


PAS." Trifluorochloromethane", tSi3, "deter 


ophy) Lowe". Si. aoe 


You can also use variables in DATA statements but as you will 
see when you run this next program strings need not be in quote 
harks, This means that only numeric variables can be included 
tithe DATA list as Ovovivip$ will be read as ‘‘Ovovivip$”’ and 
nol a5 the string assigned in line 28. 


2O Oveyiviph="Floccinaucinihhilipilifi 


rateju" 
RET PPL 8 aes 
as GM & az 
he Fry Tex? Tl 5 
So RAD ot CB A CED 
eer PRINT eb OR) TOE CSO) ACE 
Bo WERT 


ie ae ies 
rn aoe 


wo DATA Cvovivios.4493, Staminiferous 


AUB VHS, Fhenanthrenequinone , CORF, 


Tri 


flaorochloraneatiiange «lS12, Hetreronhyl lou 


wy). vie 


In our next program, GALACTIC GROCER, written by Tim 
Rogers, the goodies you are trading with start off their lives in 
DATA statements in lines 1878 to 1966. The relative values of 
these strange objects are stored in the DATA statements which 
follow. 


In this program you are the Galactic Grocer, trading such 
interstellar goodies as coal dust, reject soap, aspidistras and 
zinc hub-caps. As you'll discover, these items are in great 
demand throughout the galaxy. You start out with some 
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money, and a stock of goods, provided by Galactic Grocery 
Central, and you are attempting to zap around space, trading 
here and bartering there, to return to Central with more goods. 
On arrival, the goods in your hold will be sold for twice the 
amount you paid for them, and a tenth of the profits will go to 
you. The program is set over some 20 years, compressed into a 
quarter of an hour or so by the computer time continuum. 


Out there, in the cut and thrust of interstellar commerce, you’ll 
meet other hardnosed Grocers from other rirms, planets and 
star systems. They’ll be on their way to other points in the 
Known Universe, and will be willing to trade with you. Keep in 
mind — when considering purchasing anything from wily 
traders — that the point of the game, so far as you’re 
concerned, is to try and stockpile the really pricey merchandise. 
If you don’t want to buy from, or sell to, a particular trader, 
then just press RETURN (that is, you do not have to press 9, 
then RETURN). 


10 REM Galactic Gracer 
20) REM 

GO REM 

Pt 

BO MODE + 

an 
1OO FROCIinat 

Lio 
bit 
eean 
140) 
1G 
ten 
wae 
io 
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eo FPROCenid 
wth) 
“act UMP TL oo 


bcsears 
") 
Patines al ehh ba GALATI 


wr] Sk ribs adi sph) Bs" GBalacy i 


—< “oe Lda Moneys {sh 
Chem Vaaiue Ch Goorcs 


melee) Value of 
F Riedirt Chak Liek 

Oop CR aed TO) Ba aTRe a 
OT FRE AT yD BM Cay "aie lAs TAB CL) oa 


Fs 


sere gh FCP L eed) 


a 


15 


5 A wd 


et) 
a} 1a 
oh fa) 


Stharter 
: increment Year counter 
Welle ds Vili 
FN 2 


hebyy 
Ae) 
AhOt 


Ae NERND C4) +4 


MROE ar her 


A=0 
REM Make Traders wisn to sell whan 
nlayer wishes to buy and vice 
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EDP Sa enw 


Sion By aay B 


is : Na ey 


epochs 


cr f 
PTC 
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BEM Calculate New Valies changed 
by preceding de@al..as 
Lee rad, 4 LDoe 3 
THEN él 
care 1a! 
Lit 
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DIF ; 
en EAT ca es 


wt omoltigies ine fis 


frog NEE 


Sh be) 


a4 
oa 


phe 


EERSTE Cj 


ENDP RE 


we 
: 

“ 
m™ 3 
on 

ie 
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aut Vaedue of Goods and 
Lu me 


mab TR By 


Oe aes ae Oe a 
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DEF FRoCencd 
Linn 


deed ig et 


Preagih and give 


the option to res 
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SEV Veoarota rk! 
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CHAPTER TWELVE 
ENHANCING 
PROGRAMS 


You have a colour computer on your hands, and you should 
make the most of it. We’ll start our investigation of ways of 
improving your programs by referring back to the FAST 
FOOD program which was first introduced in chapter four. 


We have been using colour statements in many of the programs 
you’ve encountered so far in this book, so you may well havea 
pretty good idea of how to use the facilities. 


Here’s a version of FAST FOOD which chooses colours 
randomly before the PRINT statements: 
10 REM FAST FOOD 
20 MODE 7 as 
Se) Ase RIMGD fe} } 
40 PRINT UYU VE 
45 PR TNT fot as £ ND : 
So LF &et SINT UR HARIBURISER WIT 
HALL. THE TRIMMING 


ai Te THER PRINT "A LARGE PORTION, 
GF STEAMING FRENCH FRIES" : 
7O TF =] THEN PRINT "A HUGE PLATEPUL: 
OF FRESHLY COOKED i 
GO TF Ass} THEN F FT hs Wo" PATER GF toot 
HEGT HOT BUGS WITH Sauce” 
90 PRINT 
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As you can see this program runs in MODE 7. MODE 7 is the 
odd one out of all the modes, in that it has a different method of 
selecting colours. To change colour in MODE 7 a control code 
needs to be put onto the screen — this takes up the space of a 
character on the screen, which determines the output on therest 
of the line. This means that if you want red letters on the screen 
you find out which character produces ‘red alphanumerics’, 
CHR$ (129). If you print that character on the screen anything 
after it on that line is printed in red. Here is a list of MODE 7 


Alphanumerics Graphics 


CHR$ (129) 


Red CHR$(145) 

Green CHR$ (138) CHR$ (146) 

Yellow CHR$(131) CHR$(147) 

Blue CHR$ (132) CHR$ (148) 

Magenta CHR$ (133) CHR$ (149) 

Cyan CHR$(134) CHR$ (158) 

White CHRS$ (135) CHR$ (151) 
Flashing Characters CHR$ (136). CHRS$ (137) 
Double Height Characters CHR$ (41) CHRS$ (149) 
Separated Graphics CHR$ (154) CHR$(153) 


Background Colour CHR$ (157)* CHR$ (156) 
, * precede code with alphanumeric colour code 


When preceded by a graphics code from 145 to 151 the 
punctuation of the teletex mode character set produces 
graphics. These graphics are made up of the combinations of a 
gid of six blocks like these: 
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‘Separated Graphics’ means that the graphics will look like 
this: 


COLOUR 


You have probably worked out how to use some of the BBC 
micro’s colour facilities by looking at the manual and the 
programs in this book so far. Here is how it works: 


COLOUR X selects a colour — in which subsequent 
printing will be done. Ifthe numbcr is greater than 127 the 
colour of the background is changed. This means, in 
MODE 1 for example COLOUR | would select red and 
COLOUR 3 would select white. 


®@ Black 
1 Red 

2 Yellow 
3 White 


COLOUR 4 would be black and 5 would be red and so on 
until colour 127. 


128 Black background © 
129 Red background 

13@ Yellow background 
131 White background 


so to get the appropriate background colour the syntax is 
COLOUR 128 + text colour. 


MODE 1 has only four colours, but as you know you have 8 
colours available on the BBC micro (and 8 flashing colours). 
The colours in MODE | are actual colours 8, 1, 3 and 7. 
‘Actual’ colours are the numbers the computer gives to each of 
the 16 colour variations. It would be confusing if the MODE 1 
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colours were called @, 1, 3 and 7 so for each MODE the colours 
are re-numbered and are known as ‘‘logical colours’’. 


Here’s a version of the FAST FOOD program in MODE 1, 
using the COLOUR command to produce random colours for 
text and background colours. 


FOOD 


MODE 1 
Pak ¢ 4h) 
BRIAT "YOUVE DRDERED" 


COLGUE LSS-1 
46 COLOUR & . 

se THEN PRINT "A HAMBURGER Wit 
Mr INGE" 


Lar PO TELS 


HUGE PLATER UL 


AB. 
THEN 


WITH 


G0 TF amg @ PATE OE LOK 
PHOT DCG 
oo PRINT 
a = i bist gsteitcate 
2, OLD ¥ GET 


toe Gp Be 


But the colours that are available in MODE 1 may not be to 
your liking. You can change the logical colour to any actual 
colour you want using the VDU 19 command: 


VDU 19, logical colour, actual colour, 6,6,4. 


This next FAST FOOD program makes use of this command: 


POH 
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40 PRINT "YOUVE OROERED® 
44 VILE EY. oO, 
DEN Tie aes 

1 iF fei i 
HALL TRE TRUMP NES 
40 77 O82 THEN PRINT "@ LARGE FORTIOGN 


HAMBURGER WITT 


Fu Hisiie 


OF FRESHLY COCKE 


a PTR CF Tce 


me A=a THEN PRINT 
PEAT DEBS WE PA SAice™ 


Sa PRINT 


4S DMP ly fake 7 
es GOTE) we) 


Note that in the above program, the logical colour of the text 
was never changed — throughout the program the text was 
printed in logical colour 3 on logical colour 6 — the computer — 
makes the text and screen look like different colours. This 
means if it is printing on white and the colour is redefined to be 
red not only the subsequent text will be red, the previously 
printed text also changes. 


Though the computer works very fast, it cannot do animation 
very well, as you can see the things being drawn or plotied. But 
if you draw the thing you want to animate on the screen in the 
16 different colours like this: 


and if the colours were all previously defined to be black, 
nothing would be seen on a black screen. Then if using a 
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FOR/NEXT loop the 16 colours are redefined to be white in 
colour order, the ball will be seen to go round in a circle. 


When the computer is composing a colour — from black 
through to white it mixes three colours: red, green and blue. 
There are eight combinations following a logical structure: 


blue green red 


ag Off Off Off = Black 

1 Off Off On = Red 

2 Off On Off = Green 

3. Off On On = Yellow (red + green) 
4 On Off Off = Blue 

5 On Off On = Magenta (blue + red) 
6 On On Off = Cyan (blue + green) 

7 On On On = White 


So when a colour is flashed, what actually happens is that the 
colours will switch on if they are off, and will switch off if they 
are on: the opposite of red (where only red was on) will be the 
red off and the other two colours which gives cyan. You will 
find that this is less complicated in practice than you think. 
These combinations of opposites are pleasing to the eye and are 
good choices for display colours (red background/cyan 
foreground in this case). 


Now, to explain the use of things like colour, we are going to 
take a simple program, and gradually elaborate it, showing 
how adding such things as flashes and user-defined graphics 
can add a great deal of interest to your programs. At the end of 
this section, we'll give you a couple of suggestions to apply if 
you wish to kcep improving and elaborating the program. 


The program we’re going to use as the core of our development 
work is a standard ‘Duck Shoot’ program, in which little 
objects fly across the screen, and you have to try and shoot 
them down. In the first version of the program, the little objects 
are letters chosen at random, and you are the letter ‘‘X’’. You 
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fire at the ‘‘ducks’’ by pressing the “‘F’’ key, and you move 
yourself left using the ‘‘Z’’, and right using the ‘‘X”’ keys (you 
move in the direction of the arrows on those keys). 


Although there is no time limit on this program, there is a limit 
onthe number of shots you can fire. In all of the versions of this 
game in this part of the book you’ll see (line 99) the program 
starts with a limit of 15 shots. The number of shots is 
deliberately kept low so you will not be able to get a high 
score just by leaving your finger on the ‘‘F’’ key, and 
waiting for the ducks to fly into the line of fire. 


Here, then is the first program. Type it into your 
computer, and type RUN then press RETURN, to get it 
underway. 


io REM GUCE GOMOcT 

wy PRE P| 

60 REM 

FQ) C5 

Aci SCORE=) 

YO SHOTS=15) 

100 Age" LEUGL Tuy OT TH. tT IMT 
oH aF" 
Lio 
Fra 
iso 
140 sie r TAB CAleciss 
£8) TF ft INKE ¥ imOtii 3 “THER SHOT! : 

e eo" "THEN 

SCRISS— 134" 


nate i 
L4a0 PRITAM 


TAL (7,00 ¢ SCORE: "2 SCGRE, ” 


UTS LEFT: *sSHOTSs" 


fo TF SHOTSeL | THEN PRINT Tako, 7a? 
THAT? S& THE END GF THE GAME “ENO 
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1Go ACROSS=ACKOSS-+ CINKEY (-98) 9 - CINEEY ¢ 
sD) 

190 As IGHT 6 (AG, 29) 4LEPTSCAS, 1) 

200 FOR WALT#=O TQ L20:NEXT 

#1 BOT Ise | 


You'll see the letters which are held in A$ (see line 166) moving 
across near the top of the screen. You (the ‘*X’’) will be about 
the middle of the screen when the program starts. You can — as 
I mentioned a few moments ago — move yourself back and 
forth using the ‘‘Z’’ and ‘‘X”’ keys to get yourself into the 
position which you think gives you the best possible chance. 
When you judge a ‘‘duck”’ is directly overhead, press the ‘‘F’’ 
key to fire your patented anti-duck missile. The number after 
the words SHOTS LEFT (in the top right hand corner of the 
screen) will decrease, and if you have been accurate, the 
number after the word SCORE in the top left hand corner of 
the screen will increase. 


Note, by the way, that we have deliberately used explicit names 
for the variables within this program. That is, the variable name 
for the scores is SCORE, for shots left it is SHOTS, for your 
position down the screen DOWN, and for your position across 
the screen, the variable namc is ACROSS. Even though it takes 
a little longer to type long variable names into a program and 
(of course) they use up more memory than do shorter names, 
running out of the memory is rarely a problem on your 
computer, and the advantages of using explicit names to keep 
the purpose of various parts of the listing clear outweighs the 
extra time it takes to type them in. If, for example, you were 
writing a program like this and you decided that it would be 
better if the ‘‘X’’ was printed slightly further down the screen, 
you would not have to search through the program to work out 
which variable held your ‘‘down’’ co-ordinate. If you had used 
the explicit names as in this case, you would find it very easy to 
locate the variable you were looking for. 
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Run the DUCK SHOOT program a few times, then return to 
the book for the first part of our discussion on it. 


Line 160 defines the string variable A$ as a long series of letters 
and spaces. The letters can be anything you like; don’t feel you 
need to copy ours. The important thing, however, is that the 
string is 46 characters long. You can check this by running the 
program briefly, stopping it with ESCAPE, then typing in as a 
direct command, PRINT LEN(A$). If your string is the correct 
length, PRINT LEN A$, followed by ENTER will give yoa the 
answer 40. , 


The appearance of movement given to the ducks is created by 
use of BBC BASIC’s string-handling commands which were 
explained a little earlier in the book. Refer back to this section 
now if you need to remind yourself of how they work. The vital 
line for the movernent is line 198, which resets A$ equal to all of 
the string without its first character, that is, RIGHTS$(A$,39), 
and then adds to the very end of it the character -of the string 
which was at the beginning, LEFT$(A$,1). The string is 
reprinted, over and over again, as the program runs (by line 
13@) in the same position, at @,7 (eight lines down, and starting 
hard in the left hand margin), and becausc the string is in effect 
being ‘shifted along’ one character at a time before it is 
reprinted, the elements in the string appear to move smoothly 
along. Using strings in this way is one of the simplest ways there 
is on your computer to create smoothly moving graphics. 


Look at line 158. When the computer comes across an 
IF/THEN statement — as you know — it checks to see if it is 
true. Ifit finds that it is not true, then it moves along to the next 
line in the program, without bothering to carry out any further 
instructions which may be on the same line. If the computer 
finds, at the start of line 150, that INKEY does not equal ‘‘F’’ 
{that is, you are not pressing the ‘‘F’’ key) then it proceeds to 
line 160, missing all the information and instructions which 
follow the IF INKEY ({— 68) line. If, however, you are pressing 
““F?? when the computer gets to line 156, it continues working 
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through the line, and decrements the variable SHOTS by one. 
Then it hits another IF/THEN condition, which makes use of 
the ability of the BBC BASIC to isolate an element of a string 
instantly, lt looks at MID$(A$, ACROSS, t). The ‘*X’’ which is 
you is printed at ACROSS (actually as you see in line 144, a 
three-element string, with a space either side of the ‘‘X’’ is 
printed at ACROSS minus two, which has the effect of printing 
the ‘“X’’ at the position referred to by the variable ACROSS, so 
-AID$(AS,ACROSS, 1) lies directly above you, 


If line 15@ discovers that MID$(A$,ACROSS, 1) is anything 
but a space, you have hit a duck, so the computer continues 
working through the line. The variable SCORE is incremented 
by 57 and, finally in line 150, that element of A$ is set to a 
blank, so the ‘‘duck’’ disappears. 


Now all this takes some time to explain, but you’ll find the 
computer does it apparently instantaneously. You press ‘‘F”’ 
the score increases by 57 (if you’re a good shot), the number of 
shots left drops by one, and the duck disappears. You'll see 
{line 174) that the program stops when you run out of shots. 
Take note of your score at this point, and see if you can beat it in 
subsequent runs. 


Once you have the program running to your satisfaction, and 
you have a pretty good idea of how it works, modify it to read 
like the following program. You do not have to NEW the 
computer. Just compare the program you have in your 
computer, line by line, with the next listing and make any 
changes you need to, by adding complete new lines at 75, 125, 
131 and 155 and modifying certain other lines. 

10 ERT DUCE SHOGT Vi 

20) EMI 

6O REM 

PO HODE | 

PS VOL 2a3 8202909 90s 

“eh SCORE a) 

VO ET S=15 


128 GETTING STARTED ON YOUR BBC MICROCOMPUTER 


1O0 Ab="K LEUGE tuv G1 TU wi JKT 
H oF" 

LtO ACROSS=15 

120 DOWN=14 


ives COLOUR 2 
134 PRINT TABOO, 7) 44% 
i341 COLOUR 3 
i140 PRINT TAG iACROss-2, 0b) se KO 
150 IF (INKEY(-69)) THEN SHOTS=SHoaTa— 3 
21F MIDS (aS, ACROSS, 1)<2" * THEN SCORE=SC 
DURE+S 7: GS=LEPTS(AR, ACRMSS-Le" YR EGHT Ss c 
A, 40-ACKOSS } 
: ins COUP 1 
140 PRINT TARCO, O78 "SCORE: *aSCoQRE, " SH 
OTS LEP Ts "s GHETSs " a 
L?7O TF SHOTS< 1 THEN PRINT T@8 CO, 205% 
THAT’ S THE END GF THE GAME "SEND 
° 480 AMROSS=$ACROSS+ INK EY ¢- 98) b- CIMEREY ¢ 
~OF) 
$90 AS=@R TIGHTS (AS, BOI +LEP TRIAS, 12 
S00 FOR Walt=2 TO i220: MEST 
Sig Gora Las 


Now when you run this, you'll see an immediate and quite 
striking improvement. Colour.certainly adds a loi to any 
program on this computer. 


Even if we had done nothing else, there would be a significant 
improvement in the program. You’d have the score and shots 
left, ducks and the ‘‘X”’ all printed in different colours, which 
is far more interesting than just plain old black and white. 


You are probably aware that, in moving graphics programs, 
everything you get the computer to do — from making an 
JF/THEN decision, adding two numbers together, raising one 
to the power of the other, to generating a random number — 
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takes time, and the more you get the computer to do before 
cach subsequent frame of a moving graphics program is 
printed, the more slowly the graphics will move, and the more 
yaky they will appear. 


Apart from the colour changes we’ ve discussed, the program is 


the 


same as the first listing. However, you can see that the few 


changes we have introduced have improved it considerably. 
We'll now continue with the improvements, and eventually we 
will add some sound, and getting the screen to flash when a 
chick is shot 


Enter this text version of the program, run it to decimate a few 
flocks of ducks, then return to your book for a discussion. 
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240 ACRISS“ACKOSES+ (INKEY (-98) )- CINREY { 


iF i 

2a A8=hIGHTS 
76d FOR we 
270 ENDFRMO 
me! 

290 

SOO DEP PROGCfire 
Abt & ssi pa eriaal a 
Te KEES 


CAD. Pe 


— 
ae 


fA BREE Bob 
So EE EHD iP ie 
Sa 


96 d aE x 
40d END 
api 
Aleiy 


400 ENDEROC 


That version of DUCKSHOOT was operationally exactly the 
same. The difference is the way the program is executed. It has 


O TF MINS (A, ACROSS, 1) 0 


» WE at 


THaT? & 


iA8, BS)+L ERTS lad, bo 


Tao TO SO:NEXT 


a 


HbR TCT 


THEN 


SO 


been partly structured in that some procedures have been > 
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defined. They have been created in order to delete the 
multistatement LF... lines by having these statements separate 
in a PROC, only called IF the condition is satisfied. Also an 
infinite REPEAT/UNTIL LOOP has been added at lines 180 


and 120. 


In the next version of DUCK SHOOT the program has been 
divided into workable procedures. 


30 REP DUCK SHOOT V4 

20° REM 

60 REM 

?O 

AO MODE bt 

FO FROCinitialise 

100 REREAT 

Lio PROCLoop 

LEO UNTIL oO 

130 

i4o 

$50 DEF PROC Loop 

io COLOUR 2 

LYO PRINT TABIO, FFAs 

ISO COLOUR = 

1°O PRINT TAR (ACROSS-2, DOWN? x 4 

SOO (IF CINKEY (O-66)) PROCfire 

wi COLTUE 1 

S20 PRINT Tete, 0) 8 "SCORE: "3s SCORE, ? SH 
OTS LEFT: 'sSHoTsSs # 

eet TF SHOTS.) THEN PROCend: EN DPROG 

240 ACKOSS=ACKOSS+ ( 1NKEY (-98)3=-CITNEEY ¢ 
~eF3> : ? 

2c) AS=KIGHTS (AS, SO) +L BF TRIAS, 15 


moor 


ot 


FOR WAaATT=o 


Th SOs NE RT 
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270 ENDPROG 

Panta) 

S90) 

=o DEE BROCE aie 

VDL 194 Oy Oy On. OO 
SHOTS=SHOTS~ I 
Goo, 4,1 

X= (ACROSS SS) 18 
Yri{T O24 DOWNS SS) 
MOVE X, ¥ 

DRAW ¥, ¥e OC 


S00 NEWAd= LEFT # (a8, ACROSS Sh 4-0 Vato LH 


# (AG, 40 -ACROSS 
390 TF PTS (ae, ACHOSS, dae! 
RESSCORE+S7 s Ag=NEWAS 
40n> SOUND LF, 1S, 200, 2 
4i0 DRAW X,¥ 
420 VDU PF7,9.4,0,0,0,0 
450 ENDPROC 
ehe}t) 
7 Sea) 
460 DEF PROGend 
470 #FK 1S 
430 FOR T=_ TQ SOoGs NEXT 


490 PRINT TABCO,12y " THAT 


OF THIS GAME..." 
Bod PRINT Taco, BO! ANY 
AGAIN aw | 
Bo €F XY LB 
SO DUMMY fat T 
ESO) Feld 


S60) DEF PROCinitialise 


B70 VOL ha Geos Ogos ce 


" THEN SCO 


§ THE END 


Bey TA Fels 


bast) 
Pe) 
byt OF 
ide 
&) ey 


lo 
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VOU LP a a ty, O04 

VOU 23, 232,0.4, 73, 222, 62,8,0.0 
SCORE=0 

SHOTS 15 

FCK Led TO Sy 

IF RNDCL 2326 AS=ADS+CHRE (PES) ELSE 


AS HAS +HCHHS C32) 


foes 5) 
od) 
a/o 


& 


Nex T 
AUROSS 1 Fi 
DC 1 4 
ENOPROC 


The nature of that version now makes it very simple to add to 
the programs changing the logical colour — creating a laser 
blast and a screen flash for PROCfire — adding sound and a 
blue background simple because we can see immediately where 
to put the enhancements. 


Line 86 — Sets MODE 
9@ —- Calls PROC initialise which initialises the screen 


and variables 


100 ~—- Start indefinite REPEAT/UNTIL loop 

11@ — Call PROC loop as it is the procedure in the loop 
120 — End of REPEAT/UNTIL loop 

18@ — Defines PROC loop 

16@ — Sets colour of ducks 

17@ — Prints ducks 

188 — Scts ‘x’ colour 

194 — Sets position of ‘x’ and prints it 

266 — If F is being pressed then go to the ‘fire’ section 


of the program. INKEY with a negative number 
init s the same as INKEY (@) except that it is only 
true or false and if the key denoted by that 
number has been pressed it is true. Look in the 
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218 — 
228 — 
239 — 
249 — 


258 — 
260 — 
278 — 
308 — 
318 — 


326 — 
330 — 


349 — 


358 — 
368 — 


378 — 


386 — 
396 — 


USER GUIDE to find out which keys have 
which value. This means the translation uf IF 
INKEY (—69) THEN..... is: If the SY’ key is 
being pressed then.... 

Sets the colour of the scores 

Prints out the score 

If there is less than one shot then PROCend 

As INKEY with a negative number produces — 1 
if the specified key is pressed the horizontal 
co-ordinate is decremented by the difference 
between Z being pressed and X being pressed. 
When the sum is the difference between — 1 and 
® which is —1 the horizontal co-ordinate is 
decreased. If X is pressed the sum is @— ~—1 
which is +1 so the horizontal co-ordinate is 
increased 

Makes A$ equal to itself with its front lopped off 
and added onto the end 

The computer pauses with a FOR/NEXT loop 
Ends the Definition of PROCloop 

Starts the definition of PROCfire 

Redefines the background colour of screen from 
blue to black 

Decrements SHOTS as one is about to be fired 
Sets graphics colour to inverse anything that is 
already there (see chapter 14) 

Calculates x co-ordinates of line to represent gun 
blast, adjusts the value of ACROSS to that of the 
number of graphics points across the middle of 
the ‘x’ from the left side of the screen 
Calculates y co-ordinates of the top of ‘x’ 
MOVEs graphics cursor to the position near the 
x from where the ‘gun blast’ is to come 

Draws 268 positions up from the ‘x’ to the line of 
the ducks 

Makes the position fired at a space 

If the position fired at is not a space (i.e. a duck) 
this line increases the score by 57 


408 — 


416 — 


426 -~ 


434 — 


460 — 


476 — 


480 — 
499 — 
510 - 


{ 


528 — 


538 — 
560 — 
576 — 
588 — 
598. — 
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Outputs a SOUND to inform the player that the 
‘gun’ has been fired 

DRAWSs back to the x and as line 33@ sets the 
drawing to inverse anything tht was there before, 
the DRAWing deletes the gun-blast line 
Redefines the black background to blue again. 
The computer works so fast that the time the 
computer to run through the lines between the 
line which redefined the blue screen to be black 
(line 31) is so short, that the screen seems to 
flash black with a white line briefly appearing on 
the screen 

Ends the definition of PROCfire called by line 
204, which only stops the program’s animation 
for a moment, as the computer works so fast 
Starts the Definition of the procedure which is 
called when all the SHOTS are used up 

This command clears the keyboard buffer. The 
keyboard buffer is a little part of the computers 
memory which holds the letter you type in if it is 
too busy to accept them — in this program the 
program needs no input but the F’s (for the firing 
of the gun) stored in the computer 

Delay loop 

Prints the ‘end of game’ message 

Clears the keyboard buffer so players can 
continue at their leisure 

Waits for a key press (really it actually sets the 
variable DUMMY to ASCII value of the key 
pressed) 

Reruns the program 

Starts defining the initialisation procedure 
Turns off the cursor 

Redefines logical black as actual colour blue 
This line defines the character to look like the 
duck in the display. 


The duck has been ‘user-defined’. User-defined 
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graphics are one of the really great features of 
your computer, and — although certain other 
computers have similar feature — few, of any, 
are as simple to use as the one on your machine. 


It is very simple to define graphics. We'll take 
you through the way we created the alleged duck, 
and from this explanation you should be able to 
produce anything you like. 


The key Lo the user-defined graphics is an eight 
by eight grid like this one: 


To work out your graphics characters you simply 
fill the squares on this grid which you want as 
solid dots in the final graphic with ones and those 
you don’t with zeros. Our duck (in grid form) 
looks like this: 


}o/o; ao]o| 
ofojololojololo. 
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Reading across each row separately we get what 
are called binary numbers. For example the third 
row would be 61001001. These eight digit binary 
numbers, or bytes as they are normally called, 
can all be represented by decimal numbers 
between @ and 255. 


The way binary works is similar to decimal in 
that each column has a different value. The 
column values (from the right) with decimal 
numbers are 1, 19, 180, 1860 and so on. These 
column values are used in reading numbers. We 
look at a number and multiply each digit by its 
column value. For example: 


19@’s 1@’s I's 3x 166 = 306 

3 7 8 7x 18= 70+ 

378 = 8x l= 8+ 
378 


With the binary numbering system the column 
values are (from the right) 1, 2, 4, 8, 16, 32, 64 
and in this case 128. So to convert binary to 
decimal we simply multiply each binary digit (or 
bit) by its column value as in this example: 


128s 64’s 32’s 16's 8s 4’s 2’s_ I’s 
1 i) 1 i i) 1 4) 8 


16116160 (binary) = 188 
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Using these column values we can work out the 
decimal numbers from those eight binary 
numbers need to produce the user-defined 
graphic character. 


128’s 64’s 32’s 16’s 8's 4s 2’s_ I’s 

9 @ 8 8 B Oo 4 ® = @ 
6 6 @ 6 B ] 8 0 = 4 
4 1 6 @O 1 o 6 1 = 73 
1 t @® 1 l 1 1 6 = 222 
6 ® 1 1 i 1 1 6 = 62 
6 6 @ @ I i) i) 6 = 8 
068 @ 8 @O 0 vi) 6 = @ 
6 86 ®@ 8 B 0 i) @ = 6 


so the syntax of the VDU 23, command is VDU 
23, character to be defined, Ist row, 2nd row, 3rd 
row....8throw. You have characters 224 to 255 
free for redefinition, 


604 — Sets the score to @ 
614 — Sets the amount of shots to be 15 
628 — Starts a loop to randomly create the string that 


holds the ducks 
ed “_ Set co-ordinates of the x start position 
670 Ends the initialisation routine. 


There are various things you can do to further develop the 
program: 


1. Define an ENVELOPE to be used in conjunction with 
sound channel @ to make a quacking sound. 
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2. Define a character to replace the x to look like a gun or a 
man (in line 198 use ‘* ’?; CHR$(233[number of the redefined 
charcter]); ‘‘’’ instead of ‘*x’’. 

3. Add “thigh score”’ feature so the game will restart preserving 
a high score for you to beat. 

4. When all the shots do hit a duck each, make the program 
play a tune for the winner. You can do this by using the READ 
statement in conjunction with the SOUND statements. 

§. Change the number of shots. 

6. Make the stream of ducks go on for ever — i.e. not looping 
on the screen but an infinite number of ducks to get! 

?. Try putting the game in MODE 7 — though it has no user 
defined graphics. 


CHAPTER THIRTEEN 
GETTING LISTED 


An array is used when you want to create a list of items, and 
refer to the item by mentioning just which position in the list it 
occupies. You set up an array by using the DIM command. If 
you type in DIM A(5), the computer will set up a list in its 
memory called A, and will save space for five items: A(1), A(2), 
A(3), A(4) and A(5). These, by the way, are called elements of 
the array. 


When you dimension, or set up, an array, the computer creates 
the list in its memory, and then fills every item in that list witha 
zero. So, if you said to the computer, PRINT A(1) or PRINT 
A(4) it would come back with @. You fill items in an array with 
LET (such as LET A(2) = 1669) or using READ and DATA as 
we saw in chapter eleven. Once you’ve filled a position in the 
list, whether you filled it with LET or READ, you can get the 
computer to give you the contents of that element of the array, 
by simply saying PRINT A(2). 


Arrays when dimensioned on the BBC computer have more 
space than you would at first think. The array has one more 
element that we have not mentioned, A(@). So if we DIM A(5) 
we set up six elements, The @ element has not be used in the 
following examples. 


The next program dimensions (this, as we said, simply means 
sets up, or creates) an array called A, with room for sixteen 
elements. The B loop from line 3@ to 5@ fills the array with 
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random digits between one and nine, and then prints them back 
for you with the loop from lines 78 to 94. 


ca TEM 
DL 
ani 


ac GS 
io) 


AQ 


ABP AW SS. a wa 
my OUR 
Fest TO 

A OT3) = RID C4) 


Si) AE XY 
4o FOR Zeb TO 15 
vO PRINT "actsza®) 


re 


re) 


CIMT 
NEY | 


(fT 


P3ats) 


This is called a one-dimensional array, because a single digit 
follows the letter which ‘‘labels’’ the array. You can also have 
nudti-dimensional arrays, in which more than one number 
follows the array label after DIM. In the next program, for 
example, the computer sets up a two-dimensional array called 
A, consisting of four elements by four elements (that is, it is 
dimensioned by DIM A(4,4) as you can see in line 26): 


REM 
DIM 
EPs 


he) 
al 
40) 
FO 
ey 
90 
$cu 


a “ 7 ft 
POR 
met ty 
F- ClF¢ 
PRIN 
NEXT 
FRIWN 
NEXT 


{25 


ARRAYS ow 
Ald. 4) 

ped Ta ef 
Me} TO +4 


a) BILD ¢ Se 


ros Log 
Bel TO 4 
i 3 
C= 4 


TO 4 
ACE, Cig? 


GS LHS CUS AG 


a 
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When you run it, you’ll see something like this: 


bik a th 


1 FY i om ¥ 


You specify the element of a two-dimensional array by 
referring to both its numbers, so the first element of this array 
{the number 7 in the top left hand corner of the printout above) 
can be referred to as A(1,!). The 7 at the end of the lineis A(1 4) 
and the 9 on the bottom row is A(4,3). ; 


Your computer also supports siring arrays. Enter and run this 
routine to see a string array in operation: 


ig REM SRRAYS... . 


Ag 


: ay T 4 ab : (a i i y 
BO DUPER eck T 


| i 


isurreioinoder ,# 


Pula cra 


eqmaemol vreur om ath y 
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This program demonstrates the use of a two-dimensional array 
tor “holding” an object and for printing it out. The object in 
this case is a miniature dragon, who is trying to escape from 
Murky Marsh, indicated in this program by a square of 
brightly-coloured dots. Our dragon is very stupid, and moves 
totally at random within the marsh. He is free if he manages to 
stumble onto the outer right or bottom two rows. The dragon in 
this program denionstrates Brownian motion, the random 
movement shown by such things as tiny particles in a drop of 
water viewed under a microscope, or of asingle atom inaclosed 
container. Brownian motion explains why a drop of ink 
gradually mixes in which the water into which it has been 
placed. 


In the second version of the program, you can see how a third 
dimension added to each co-ordinate lets you have two 
characters or more at each co-ordinate of the ‘‘marsh’’. 


Here is the program listing: 


MR GSS TASeee sm ag eas 
FS FE pa | 

TR FADS, TRTREIME | [oss Se 
PO TP RAND OS OTRHEN fieGhe d ELGE 
PSO TF eld THEN 
lao TE Baa Ti 


Leu TR fey 
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Go TF Feito THEN Fe]o 

90) Meh 7 

200 VDU CAL, 13, 1 

2Lo PRINT "Aattbempik Mo. "aha ® a? on ae 
ti 5 iawn 
fC, G1) 5 
te es 
VO Bi, 15,4 
F Xe TO ba 
FOR yed TO 1a 
TEP CROCE CAR, Yroa Ma 


ACF, y=] 24 
UNTEL GLY ANT FES 
GOTG 410 


4 


410 PRINT? TABCIO) “bihew..Free at last" 


And another version with teletext control codes: 


1O REM Dreaqon*s Lair 
20 REM 

40) REPL, 

74a) 

E> 

PO DIM AtiO,i9, i? 
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Log MODE + 
1:0 Me 
120 PROCinit 


140 VDL 233820250805 03 

REPEAT 

IF RRND. 35 THEN P=P+i ELGE P=P-1 
IF RND?.35 THEM G=@+1 ELSE O=G-1 
IF G£i THEN O=1 

TF @510 THEN @=16 

IF F421 THEN P= 

IF F220 THEN PH1o 

M=M+ 1 

VDU 31,5, 1 

PRINT “Attempt No. “sMe"  "sPE 


“ae 


ACPO, : ACP, G,0)=130 
VDI 

FFE 1 

FOR Y=1 TO 10 

PRINT CHEBCACX,Y,0) 2 ECHRSCACK,¥.4) 


| 

Pe Ee y * 7 TAs CS) g 
Mie ST & 

Ati th, beh 2e 
240 SOUR i. 
wood UNTIL. a 
S60 GOTG S20 


DEF FPeOCinitk 
=RAD C3 +S 


. TM 12 
420 FOR ¥=i Th ao 
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ASO ACK. ¥,1) #446 

AG ACK, O72 184 

450 NEXT, 

4o0 FOR Ted Th py 

A7O VOL Bt, 7,129, 87, 134 
AO NEXT 

490 VOU 28,73, 23, 38,0 

BOO ENDER 

S40 


Sal PRINTS Teboi Oo Whew. Free ah lash" 


DAVEY JONES’ LOCKER 


Time now to relax with our next game — FULL FATHOM 
FIFTY -- which uses two arrays (B and D) to store the player’s 
scores and dice rolls respectively. It is a simple game. You and 
the computer are in a race to roll a total of 54 or more. You roll 
two dice at once, but the only time you score and get the total of 
the dice roll added to your accumulating total, is when both 
dice come up with the same number. 


You should know enough about how programs work at this 
stage to be able to determine what each section does, so we will 
not explain this relatively simple program. Get it up and 
running, and then decide for yourself how each sectian works. 
You'll possibly gain more from the program by working it out 
yourself rather than having it explained in detail by us. 


Here is the program listing for Full Fathom Fifty: 
(oO REM Fuld Pathan Fifty 


Rao CITE? 
YO PROC Laat 
Leno Ss 
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Rey? 
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SPRINT TARCS. 1 Po: 
and "3bit3 
2eOQ FOR T=o Ta 
2?) HES T A 
50 RGUND=FOUND 
Bo0 FOR T=o To 
40D GOTO iso 
4 
Ee Fan 
410 DEF PROLend 
470 FR Ts TO 
430 PRINT TAB CL 
Winner ga the *3 
440 IF tas 3b 
cre" 
480 TF ci ya te 
440 WEXT 
4703 
4580 - 


Hari 
Bag 
Seater @) 
S40) 


id 


"The Roji was "sbi? 


Sis NE ET. 


te | 


Oy WEST 


Pad 


“) THEN FRINT “BLBAC. 


AT WNTIL FALSE 


reg de 


ie 


it 


oo ge 


9 


or 
i 


»Gibluletéidaulerkiées ” 


rive 


Mi 


9) THEN FRINT “human! 
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LET THE GOOD 
GRAPHICS ROLL 


Your computer has a very wide range of graphics facilities and 
in this chapter we'll introduce you to some of them. After the 
introduction to each function, we'll give a program or two to 
illustrate it. 


These demonstrations should be seen only as introductions to 
the praphies potential of your computer. Experimentation will 
show just how far you can stretch your computer. 


THE SCREEN 

The zraphies are displayed on the ‘graphics screen’ based ona 
prid, similar tothe grid used when the PRINT TAB statement is 
used, but with two main differences: the numbers in the 
brackets after TAB are co-ordinates with the origin (@ @), i.e., 
the starting point, at the top left-hand corner of the screen. The 
graphics are based on a grid starting at the bottom left-hand 
corner of the screen. But the main difference between PRINT 
TAB and the graphies commands is the fact that the graphics 
grid is much finer, numbered from @ to 1279 on the x-axis and 
to 1823 on the y-axis. 


The way the graphics work depends on which MODE you are 
in. Of the 8 modes, three modes, 3, 6 and 7, have no graphics 
capability. The reason there is more than one kind of graphics 
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mode (modes @, 1, 2, 4and 5) is because different modes use up 
a different amount of memory. The first three modes all take 
up 20K, but each has a different number of colours. Basically 
the thinner the lines on the screen the lower the number of 
colours, because the computer needs more memory for thinner 
lines (as more can fit on one screen) and more memory for a 
larger amount of colours. 


Although the grids for these modes accommodate a different 
number of vertical lines, their numbering is the same, so 
programs need not be changed to work in different modes. 
Imagine that the screen is divided into a grid 128@ units long and 
1924 units across. Thus each point on the screen has 
co-ordinates and using these co-ordinates we can join different 
points with lines. They keyword DRAW x,y helps you do this. 
‘x’ and ‘y’ represent the co-ordinates to which you wish to draw 
to, using the aforementioned grid. When using the graphics 
you Start at the origin, 0,0, at the bottom left-hand corner of the 
screen, Run the next program, entering numbers between zero 
and 1279 for x, and zero and 1823 for y, tosee DRAW inaction: 


12 REM DAA X,Y 

20) REM 

40 MODE 1 

Sy PRINT TABCG, 0) "ENTERS Ket 

60 JNPAIT x 

7 PRINT TAR CO,0)" Bd 
oO PRINT TARCO, OF "ENTER Ya" 

er TNE ¥ 

1c BRANT TARO," u 
io PRINT TABOO, 1) "DRAW MEE, "aY 
it ORGW ®, ¥ 

Lag SCT Sig 


So to summarise, DRAW X,y plots a line from the last point 
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visited to co-ordinates x,y where the value of x is between @ and 
1279 and y between @ and 1624. 


PLOT 


When creating graphics, you may not wish to have a drawing 
made up of a continuous line, starting at the bottom left of the 
screen. Fortunately there are other ways of joining points on 
the screen using the PLOT k,x,y statement. x and y are the 
co-ordinates to which you wish to plot and k defines the way the 
PLO'Tting is done. Two of the most used PLOT statements are 
PLOT 4,x,y and PLOT 5,x,y — these have their own BASIC 
keywords: MOVE x,y and DRAW x,y respectively. 


As you might expect MOVE x,y moves the graphics cursor to 
position x,y so the next DRAW or PLOT statement will store 
the x,y as “the last point visited’’. There are over 5@ PLOT 
variations, ie. aver 5@ different values for k — each of which 
behaves ditferently. 


To describe plotting inevitably involves some graphics jargon. 
‘Line absolute’? means a line whose co-ordinates are 
measured from the origin (at the bottom left-hand of the 
screen) while ‘‘line relative’? means that the destination 
co-ordinates (x and y at the end of the statement) are measured 
from the previously visited point. This means that if the 
graphics cursor was al (500,56@) i.e. the last point visited, and 
the point you wanted to draw to was (400,450) you could drawa 
“line absolute’? by using the statement PLOT 5, 400,450 or 
DRAW 400,450 by using PLOT |,x,y which is the ‘draw line 
relative’ statement, in this case it would be PLOT 1, — 106, — 5@ 
because the graphics cursor moves minus 186 positions to the 
right and minus 54 positions up (which comes to the same as 100 
to the left and 5¢@ down the screen). 


COLOUR 


You will remember that when you start typing in any MODE 
you have a screen which is white text on a black screen — this is 
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the case until you use a COLOUR statement — this is the same 
with graphics: you start with white lines on a black screen until 
you use a GCOL a,b statement. GCOL is short for Graphics 
COLour and the two numbers following it define 1) how the 
colour is plotted and 2) which colour is used. In GCOL 9,x ‘x’ is 
the colour you wish to use. If x is greater than 127 then that 
colour will be the graphics background colour which will show 
after the graphics screen is cleared using the command CLG. 
You may come across the words ‘logical inverse colour’ — the 
‘logical inverse of a colour is the colour which is its opposite: 


In two-colour modes the inverse of colour @ is colour 1, whilein 
four-colour modes it is like this: 


Colour inverse 
4) 3 
1 2 
2 1 
3 4) 


and in the sixteen-colour mode the opposite of a colour will also 
flash alternating with its logical opposite (see chapter 12). 


PLOT Q@,x,y moves the graphics cursor relative to the last 
position (x units to the right and y units up). 

PLOT 1,x,y draws a line relative to the last position. 

PLOT 2,x,y draws a “‘line relative’ in the logical inverse 


colour, that is a line drawn in the logical 
inverse colour of the colour in the GCOL 
statement. 


PLOT 3,x,y draws a line relative in the background colour 
in use, so that if it is drawn over some 
foreground colour it can be seen — otherwise 
if can be used to move the graphics cursor 
relative to the last position. 


PLOT 4,x,y moves to absolute position (i.e. x units to the 


PLOTS x,y 


PLOT 6,x,y 
PLOT7,x,y 


Ilicre are some 
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right from the origin and y units up), MOVE 
x,y can also be used: it sets the graphics 
position. 
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draws to absolute position from last graphics 
point. 


draws line absolute in logical inverse colour. 


draws line absolute in background colour 
defined by GCOL @, 127 + x (where x is 
normal foreground colour). 


more plotting statements which are useful 


although they may not secm vital at first glance: 


PLOT 21,x,y 
PLOT 69,x,¥ 
PLOTR&S x,y 


Here are some 
sraplie displays: 


draws a line absolute using a dotted line. 
places a point absolute at x,y. 
draws a triangle between the last two points 


and x,y. 


progams using PLOT statements to create 


ber dd BEV Ty kee oe | 
a RR 

$0 PHI J 

Me PeOCriicl 

St) MOVE Xa ¥ 

0 PET 1, %, Lune ¥ 

Re ER Tec: Tip pos ME XT 
Sed PRE ¥,¥ 

0G FLT be bP KY 
110 FOR Tso TO LOtos NEXT 
iSea MOVE Ke ¥ ' 

130 FLOT f,22879-%, (O23-Y 
140 FOR .Ted TT Looe: NEXT 
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La0 od Te Sa 

dan : 

L7O DRE PROCe ne 
Li RRB CL EG) 1 
Go VeRO Od Odd dg 
2OG END RES 


La REM FROY D4 ka Yoon 
20 REM 

40 MODE i 

a PROC id 

at? MOWE x. ¥ 

FO FLT Laks LORE ¥ 

Bo MOVE K.¥ 

e0 PLOT 1, 1F ok, ¥ 
1OO MOVE Ka ¥ . 

Lia PLOT 1, beeen, (Oey 
iS GOTO Bc : 
} Sc 

L40 DEF PROCe rie 

130 XeRND CIS} 

iat YeERNO LOR) 4 

L7Oo ECOL ORME CS) 

Lao EANOFROC 


Lo REM FLT 1, keV 2 
20 REM 

40 MOVE J 

BO FeO Cre rie 

40 MOVE 640, Sle 

70 PLOT ba 8a ¥ 

Ba MOVE G40, Bao 
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phair 
iREae 


DEE PROC red 
TEE PSA a 
csiepls © Pap b a nb 


Pa REPRE ELIT PTERRPLY Fo] 
1 BEY 
chia Plifial- 


euy PY iT 
ata Pd ed 


vers FY EET 
PET 


O REM GUYTERFLY PLOT Vv. 2 
2 REM 


i 
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Loo LOT 
10 PLC 
12a BOTC 


» LOz4~y 
"1586 om %, 1024~¥ 


LO REPRE CHIT TIS LY PAL MUS 
aud REP 
An siesee - 


AO PLOT 
GO PLOT 69, 1 2e0 
OO PLOT &9,X%_ 1024 
PLOT 69, 1 2BO-% y LOR4~Y 
ao GOTO So 


set Se 5a 


ey MODE ] 
PL Oe dats TH LEYS STEF 4 


wy PLOT 
toe Ler 
Ligh For 
Last 
WEA T Fy 


1O REM C¥VeL ff 
ead FREEM 
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Pate: am 
MOVE as rat 
BERS Ayes t i 
tes | We os Pie 
(eee «iO Sha 7eo 
taoe eh ae Gl ORO BERR 
bea oD 

HAW Cy v 

Oka 2.0/2 
pra .o/2 

WEDS Tp 


205 STEP 6 


REM COSTIME PLOT? Tits 

KE Pt 

Hime 4 

Pe gem TO See T STEP , OF 
Pie A ROR, SACS CA) P44 
Mla yy fa 


Reh GE Pe EVP TMG 

hy Pt 

MOOr 4 

bile pase TC Te 1 STEP 105) 
YO) GS, caer, AdaeS TN (a) 44380 
WEX YT & 


BEM SINE PLOTTING = 

REM 

HEME 4 

FOR A=O TO 1O%FT STEP LOS 
PLOT G9, hOeG, S4AOeSTIN (A) 4420 
NEXT 4 : 
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16 REM SIME PLOPTING 

Zo Peete 

45 MODE t 

Sa FOR feo 1H SO STEP 8 

40 FOR gem Th Loe] SPER L1G 

7° PLOT OF, FRAT. RAO eS TN CA? +4350 
HQ NENT 

GO NEAT YF 


iG REM COS SIME PLOTTING & 
20 REY 

acy MODEL 

50 FOR &0 TO Seri STEP 1 
SO MOVE Boe, 240K 008 (A440 
7O DRAW O#XA, PAORSTM CAP +ATO 
RO WEXT A 


io REN COSSSTME PLOTTING 

ik REM 

40 WODE J 

BO FOR 486 TG Sari STEP .O5 

4O PLOT AbD. GOaA, P4aQeRnOS fa) +4 
70 PLOT SF, HOw, ZAKS EN CAD ASO 
nO NEAT & 


COL 


We have not as yet fully explained the operation of the GCOL 
statement. GCOL @,x sets the graphics colour as do all the five 
GCOL statements — but the first number dictates how the 
graphics drawn affect the things they are plotied over. This 
means GCOL sets the way colours ‘mix’, The next section is 
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only for the reader who wants to predict very precisely how his 
colours will mix, and should be skipped by the fainthearted! 


Ihe way colours mix is related to “‘bit-wise operations’’, a 
somewhat complex set of operations which relate to the 
statements OR and AND. Bit-wise operators look at the binary 
digits of a number comparing them to the binary digits of 
another number (we have dealt with binary in chapter 12). The 
best way to describe these operators is by showing you some 
examples: 


IiweOR number @ 1 8 1 1 6 1 1 @ (number ‘‘A’’) 
andnumber @ 1 1 1 @ 1 1 1 @ (number “‘B’’) 
weget @ 1 1 1 1 1 «1 1 @ (the result) 


What OR does is compare the two corresponding digits of two 
binary numbers, taking it column by column (vertically). In the 
csample above, the corresponding digit of the result will be 1, if 
the fist digut of the number identified as 'A’’ or the first digit 
Of number HW is 1}. In this case neither the first digit of **A’’ 
nor the first digit of B" is L, so the first digit of the result is 6, 
while the second digit of the result will be 1, because the second 
digit of “*A"’ OR the second digit of *'B”’ is 1. 


if we AND 6161161 1 6(A) 
and #111411 1 0(B 
we pet 091616611 


What AND does is to compare the two digits. If the first AND 
and the second are both 1, then the answer is 1. 


As well as these ‘bit-wise’ versions of AND and OR there is 
another ‘bit-wise’ operator used in the GCOL statement: EOR 
(which stands for Exclusive OR). 


If we EOR 616119011 @(A) 
and 61110111 6() 
we get 9016110680 
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EOR registers if digits are different (@ and 1 or 1 and @) and if 
they are it makes the corresponding result digit 1. 


And here we come to the point of the above explanations: take 
the first number (‘‘A’’ in each of the above cases) as the screen 
and the second number (‘‘B’’) as the dotted line (produced by 
PLOT 21,x,y) the result of each operation signifies which pixels 
(i.e. patterns) would be lit if the colour was ORed, ANDed or 


EORed. 


GCOL®,x 
GCOLI,x 


GCOL2,x 
GCOL 3,x 
GCOL.4,x 


draw lines with specified colour x 


draw lines with x ORed, with the background 
(i.c. whatever it is drawing over) 


draw lines with x ANDed with the sercen 
draw lines with x EORed with the screen 


draw lines inverting the screen colour 


Here are two programs by Jeremy Ruston which show what you 
can do with the graphics on the BBC micro: 


LO REM String art 


yo BEM 
20 REM By 
ac REM 


SO REM t03 


ao REM 
fia 
RO Pele fof ey 
Oo MCIOR 
Poo Mahl ae 
L1O) Beh ¢ 
Beatty Bhest IBD ¢ 
LSA) Eres FON & 


Jeremy Ruston 


yey Sek 
ood -y Lo 
Oy 2 io 
Va 4 das 
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haa feel €] Gee 4 hed 

LSet 

Laéwe PIPE T 

17 Kets TARA CT#A)) > #600 
140 DRAGS RAD IT RD) 1 #500 
1S eS IN CRAB OCTET) 3 BGO 
pe MPIVE AM, BAe DRAW Cx, DA 
2Lo bev: «8%, GX: ORAW -CA, DA 
ey) Pepe 

ows PINT IL FNREY&-i? 

“to DMI FALSE 


Lo REP Tike 

Pee iy on 

Va WERE Rey oh. Ras on 

ah TR 

Tah Peet dae gk Peyiseeaey 

oer Ae 

fr 

wee eae 

Fyee Cuda 

femy VEE Sey dele AT ed 

bate GURL ¥ Bea 10 246 TEP 2% 
ice FO vHe-SkS TO Bis STEF ts% 
jw Gf Auber se BY GA) MSD BZ =ABSCLYY 

(ft! ne ri 2) THEBL PROsquare (2%, %%) 

io PERT VALNS 

pears hi 

| foes 

VvO PEP dees e Oey YR) 

cE Sie) sacha Bay i, RK, YH) 

Ly PPI den Cb, Sra YM) 

“OW PRO bot (38, xy YEA) 
LD FPROE bert, (85 XAG Pera K 
“ae ENP RCH 
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230 
240 DEF PROCpLot ikKy%, X%4 ¥%) 
250 LOCAL D%, AY 
260 TE X%=0) THEN Xk 
Z7O DAHSEIR OX %EKLAV LEY) 
280 IF DKSSOO THEN 
PLOTEY, £4, Yer ENDPROC 
290 AL=DEG(ATNIVE/X%)? D 
300 TE SGN(X%)s=1 THEN AKaAK- 180 
310 D%=SIN(RAD(D% DIV 4)) #500 
S20 PLOT 
KY, COS (RAD (A%) 2 #0%, S UNLRAD (AX) ) *#Dx 
S30 ENDPROC 


CHAPTER FIFTEEN 
MORE GREAT GAMES 


Iie this final chapter, we'll be giving you the listings of anumber 
of major programs. The notes on these will not be as extensive 
as you've had with some programs, but the introductions to the 
programs will highlight some of the more interesting 
propgranminy techniques used. Examination of the listings will 
vive you @ number of ideas you can apply to your own 
Preys 


BAGATELLE 

This is a simplified pinball machine, in which you and the 
computer take it in turns to roll diamond-shaped balls down a 
frame which conlains a series of numbers and letters. Your 
yeore Londs Lo increase cach time you hit an obstacle on the way 
down the frame, and the ball will bounce off the obstacle, 
increasing your chances of hitting more obstacles. Hitting the 
sues of the frame, of bouncing around on the bottom, can cost 
you small penalties. ln general, though, cach time the ball hits 
something you'll hear it do so, and have the satisfaction of 
secing. your score increase. 


You start your ball rolling down the frame from the numbers | 
to9. You and the computer have five balls each to roll down the 
bagatelle frame, and you take it in turns to do so. You have the 
first roll, Then the computer will tell you which ball it intends to 
roli down the frame, and then roll this ball. The most 
noteworthy part of this program is the FNscr, which is used in 
lines 320, 346 and 360. The numbers following the word FNscr 
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are like the numbers which follow the PRINT TAB command. 
However, instead of printing something at that location on the 
screen, FNscr checks to see what is there. In each case in this 
program, it is checking around the current position of the ball, 
to see if it is about to strike something. If it finds anything 
except a space, the score is incremented by the CODE of the 
character, minus 48. You'll see why, if you look up the code of 
the ‘*:’’ which is used for the walls, and the ASCII code of *‘I’’. 
Good rolling. 


iO REN Bagatelle 

7O REM 

60 HEP 

vt) 

iO MODE 7 

90 PROCIinit 

Loo 

L10 FROCscreen 

i2O REM toon Five Jimes.... 

ise FOR Yuet TOS 

140 PRINT TaAB(SS.ilety 

150 REM Loop Twice at first the Flayer 

then the computer. .«. 

foo FOR Kel TO 2 

170 REM Starteup options for bath hime 
n and computer... 

(60 TF *¥=1 THEN PRINT TAR‘ 28,17) "Your 


190 I= X=? THEN PRINT TABS 28, t 7) "hy Tu 
200 TF X=) THEN REPEAT: RINT TABR(S2,19 
"Which No. to start"sVDU 41, 26, 21: INPUT 
ktXstinTii kx%SO AND FAI 
ZloO ITF X=? THEN PRINT TAB( 27,19)" wil 
l1 start with :VOU SL. 28, 2's KxeRND 1G? SPR 
INTER 


CHAPTER PIFTEEN 165 


ow) RE aie] SS To Number to place bh 
below appraprigatie rime... 
tho ha SE GAs ees 
i Desee js 7 De |, 
yy EE we? 
“PEs EE Qe art ey 4 rnkiZ Fee] 1 8 pried Na! te 
acimatke balie“ " deleting the 
presedipgs ballaes 
SFr PROUNT TAMER EG aoe EAs Bd 
ON Baten 
Soy PRAT MY TRa ea, te 9g ie 
were AEP gale 
Sh REM Cheek one position ahead at 
bali gm different directions 
and set lag’ anc variablese.s. 
Ob wR Maire CFA, Bed? 
er PR i ot THEM Gok) =0 0X) As PLAG=1:6 
Leta eta 

“4r rg] Mec i Beat hy RD 

Cited pie fel oY OTHE Ce 08) +A PAG ls Gi 
Wen tae 

Sauer dpe dys CHA by BD 

Sho ER py Ac THEN OX) If OX > +A PL eer dat 
Teked Nees 

“pe TR FP aoe | THER SOHING floes, 10, 2 [i 
efigbee QS FGM Pee BAe Diese 2192 SCRA 1 ma, i 
Viceesta she [sey 

Sor RR Rroorvis eruety tsereee sae 

ae BRANT TAM CNS, he aE: ORD 

hl PRINT (eee 3S, oF atl des 

4200 REP Change cirectioan oF Ball..-, 

Ave: BHbresliter CURRED OL} +, PE 

$40 REM Cheet position of hall and 
hake ackiorn af gt a6 abeukt tea 
Leave hoard... «« 
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Fo LP BAS? THEN Tas=-Té: 6A=8 
a4cr YP BA.) THEN —P=s-- TD: hos] 
470 LF BAe) THEN TAaz-[Tar has | 4 
450 be=hA+ OL aeRnMi 19) 
47a REM Check position of Galll,if it 
has not reached the bartam m+ 
the poarcd return to ball move 
merit... 
SOO £F Abo THEN 270 
SiO SOUND 4.°44, 250.0 
SO ROC scp een 
80 NEXT, 
Sq PROC ened 
SO SIT Len 
rere) 
S70 DEF ENecer exX%, YA) 
Seo FER Function To find out character 
magition at ¢¢,V) 
BP Gye] SS 
GO VDI Bi, KALA 
64210 OC” (USN CSE A) AND &EEPPD DLY &LO 
3) ¢ 
620 TF C4126 THEN =x 
6S08 (12% MOD Ap +ee 
Pi 
650 DEF PRUGCscr een 
O60 REM Sate up screen... 
O?O PRINT TARTS OBS Ags! Pit d PSA vee 
Piet “St 
80 FOR Wel TO iv 
eYO PRIN Peboo, GO Abe abe | 
$e Fee 
FOO NEXT 
FIO PRINT TABC?. 2) 4 3 | ) a 


720. PRINT TARC7,4) " Ze 2K & XK" 
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fy PRINT TAkay,a> "  - dt Ba 


340 PREIMP TABRC7.9) © 7 oF FF FP 
YS PRCME TRRCF, ELEY OS 3 3 3 
hao PRINT Tabor, 14) "9 3 oe 
370 PRINT 1AaBCF, 16)" ft RM 
PHO PRINTIAR(Q, ZO) BSsOee TEEPE hab ted 
byhd “Eee 
Ve PRINT TGRCO, SP cebeams TEDL PEEEa Edad 


phba “ae 
Hoes PRT Teattees oo) bbe CHRB i i4ios © 
Ate TEE LY 
H1lO PICINT TAR, GS) RSS CHARS L428? 
BAGATEL LE" 
ASO PSINT TAREe 7,4)" Humane "at od) 
Moo PRINT TARCE7, 6) "Machines "sc C2) 
Wo PRIME Tabee?, tle hatil News sy 


GSO FRINE TARGA. SL" , 
Metre PND Peecie, 
Ryerss 


EUS UEP Pei ered 
Yo FOR shel TH Le 
Woo REA Y TAR CO, bh? oh Awe TE 
oe fed 
To AE 
wo PPM TAR ELE. So"G A PE" 
io PRIWE Tae) i.5o"0O VE R" 
veto PRAM T TARO? . 7) "Tne Winner is...” 
we VOLE B17, 
Bed DLP GET 
wo TR CClr ees) THEN PRINT " The Hee 
man "sELoG PRINT © The Computer” 
PO PRT Pek 7, Po PRESS ANY KEY TQ” 
990 PRINT TaARC?. 1)" PUN AGAIN..." 
pode TSIM ssaiee T 
Peder ENDRROE 
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boro 
10350 DEF PROACinit 
Jodo REM Tf ERROR occurs...End Proagqrags 
1050 GN ERAGE CLS:aPRINT ASICHR® i413" 
PROGRAM EMD... "SPRINT ASS CHR 1443" 
PROSRAM END... "SEND 
Loo HIM oe) 
LO70 REM Set AS te make # red packgrour 
dj 
LOS ASCH CLS CMR C1S 7 +CHRB OL) 
(O90 REM fet bb to make the backaround 
bl we 
PLOO RSME CLS HOR CIS 7) aH oe 
GhiO REM Turn Cursor of F 
Livo VOL BASASOs yoga os 
Lb So ENDER 
iio 


FOLLOW ME 


In this game, you have to duplicate the colour and tone pattern 
generated by the computer. There is a catch. At first, you will 
have only one sound/colour combination to remember. Then 
the computer will add a new combination to the first one, and 
play both. You will have to repeat both. Then the sequence will 
become three sound/colour combinations long, and you have 
to repeat all three ... and so on, 


Use ‘'R’’ for red, ‘*B’’ for blue, ‘*Y’’ for yellow, ‘‘C’’ for 
green, to copy the colours. 


JO REM Saumd...Foallow Me,, 
20) REM 

60 REM 

él) 

BG MODE 3 


Ot 
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lems PRUDENT 


Poe Sth bE es] 

Ia PRO ale 
lA PRO oplay 
Pha PREC piece 
few) COMET erie 


Léivy Pel 


Jha OPP PRES eperes tones 

eh Vols EP oy porsso,o.o,a,0 

wy CLS 

EO VIE 2 Ba 

[4 SOUND DZ oS, SO4*20"e pon, DEL SF 
oho Pte fem TH TOR DEL: NEXT 

“Seb DOR ROI, 


276) WEF PRO display 
[ony FOR bel TO WEN<aAS) 
SLO Peal APL OS CAG. Ly £99 
Lo POM ecmariwee fh) 

Hor Pps 

OS VD ee 

Sad HE 

SFO EMORFOL 

“eT 

RAST 

Goo eEE PROCrste 

$1 Ober eh ER Chi C4) 
4 EMDR renal, 

ARO 

fan 

tSo DEF PR Massed and 
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+o 
4AFO 
ABO 
420 
500 
R10 
SOU 
S30) 
B40 
S350 


st sequence.....-. 


5&0 
S70 
S80 
BS0 
Ou 
610 
620 


IF G=62 THEN F1=1 
{F G=47 THEN Fi=2 
IF G89 THEN Pies 
IF 6264 THEN Fi=4 
ENDFROC 


DEF PROCCHeck 

LeeQ 

PRINT TARCO, 20)" Now Input that La 
" 

LL | 

GGT 

PROCassiq@na 

PROCsquare (Pi) 

Pe Vel (MID (Ags l., 1)? 

IF PxoP1 THEN PROCQwronc: ENDPROC 
PRINT TAB(O,2Z0)" Good...Input Nexi 


mote...” 


530 
640 


key to Continue...’ 


650 
460 

FO 
Loch 
&FO 
79O 
71g 
TP 


TF L¢LEN(A®) THEN GTO S40 

PRINT TaAR(CO,20)" Well dane ‘| — Any 
DEL.=*DEL— (DEL 7/12) 

RFX 21 0 

DUMMY =GET 

END RL, 


DEF PROCwr ang 
PRINT TAB(CO,20)" Deps !! Wrong-Any 


key to repeat tune" 


FRO 
uo did 
740 
750 


IF LEN(AS) >? THEN PRINT “.,. burt ye 
get "SLEN(CAB TS" notes..." 

DUMMY =GET 

PROCdi splay 
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7 PRIUINT TABOO, 200" wa.Any kev to 


PO WMAP YEE T 

PEO apres TRE 

PO BMD hea 

ete) 

vi 

eo DEF PROC mat 

Sa VOI S23 BBOrs Os tg cy 
Mtber PME e Bako 

Pa ne) a a 
ered Ki eio 

SO ene AL SIE 
Ce a Bo 

be ae 


2 ew 


nay 


ECOLOGICAL DISASTER 


Here's your chance to make decisions of national importance. 
The program explains the starting scenario. See if you can get 
the lake to survive longer than 10 weeks. 


bo PEM Eemboyical Disaster 
YO REM (ct Ay Goliner IFat 
OO bee 


ety 

oi en 
Oty 
joes PROM ai t 
bau 


bet REPEAT 
720 FRO | ops 
140 PROCenG 
Tao UNFIT oh 
joo FIND 


? 
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iso 

i970 DEF PROCLoOOop 

200 CLS 

Zio PROCtitle*«o," Ecological Disa 
ster") 

220 PRINT’??? You are the president's a 
dvisar on matey ural resources, ..And part 

of your job ia te stock 4 new Lake im Mm 
chigan with fish and eels..." 

220 PRINT’ ' The eels only eat the fish. 
.and the fishare are only eaten by the e 
els" 

240 PRINT’ "You must select starting nu 
mbhers of fish and eels which will ensure 
the lonaest -possibie survival of the le 
kel! 

250 PRINT’ #lalet$3 "PRESS ANY KEY TO S$ 
TART. 2 ww" ; 

240 DUMMY GET 

270 CLS 

280 PROCKitle co,” Ecological Disa 
ster" )- 

290 PRINT’ ’? "Enter the starting No. of 

fish...” 

300 INPUT FISH 

SiO PRINT’’’ "Enter the starting No. of 

eels..." 

S20 IMPUT EELS 

320 CLS 

S40 PRE hi tle do," Feologrveal Diga 
ster") 

SHO WEEKSO 
300 REPEAT 
=70 FOR GeO TO 30 
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(0 @FeCHRb C1 294+RND16))4"THE LAKE IS E 


WOW VTINGe ce een 
tHe ROO hi ble tll, AX) 
400 SOUND by 7%_ ZO CL. SHG) 2 
oe ee ea 
Aco WIPERS bie RA L 
44) PRINT TABC3,3) "REPORT TO THE N.R.A 


440 PRINT Tabes,4) "abt the end of week 
“giab bt 

AEN Cease pe 

teow GERELS= (EELS~ (FP ISH/COND > 

470 TF SON(SEELS)=-1 THEN SEELS=0 

ASO FEL S=EELS-SEELS 

490 YP PSM=EEL S*CON 

“oO FF TSiet 1 Skt KF TSH 

ads SRL Se EL Sit C CEEL SZ at) eo) 

Moo Pi Shek Lobte CoP PSH 2) ee COONS 2 

So PRINT’ “INT(FISH) §" Fish ® 

S40 PRINT INTCEELS)¢:" Eels " 

S50 DUMAY=GET 

Shu LNTih FRELGs2 OR FISHC2 GR EELS>200 
eh) ee ee es ee 
“Vas Cts 


Heer EAD ROG 


Ore 
fot p 

olo JEF FROCend 

Ovo PRO ra tledo, ” Ecological Diga 


ster"? 

So PRENT’ 8 tts all over now, Natural 
Resources Advisor..." 

440 IF WEEK OBESTWEEK THEN BESTWEEK=WEE 
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is 


Ooo 


PRINT??? The Lake stayed alive for 


"SWEER ES! weebe, '? Feng your best tao date 
NSGESTWEERS " weeks. ..." 


Sed 
Qi 
eon 
FO 


iLlitty SE 1 
CES 
ENDe ROL 


BEF PROC nit. 
ON ERROR IF ERR)? PROCe:s END : ELS 


REPORT: PRINTER 


PSO 
Fan 
730 
760 
77 
780 
FIO 
Bao 
gio 
B20 
BAG) 
inde 


VDU BSsSROosZiOioras 
rediet#=CHRb Le? 
newbacb=CHRAé jy 
YelletS=CHA i231 
doulerboCHREe 14h 
FlalL Sek SeOHRS 146 
RES PhiR eh) 
ENDFROC. 


DEF MAROC tbe i6, ab) 
Foe DOWN=D TO Dai 
PRINT TABIO 06h rediletéinewbactiy 


e@lhlet#sdouletds: As 


) 


oO 
ye 
Be) 
HO 
eho a 
Fis 


aie 


720 


NEXT. 
ENDPROC 


VOU 22,7 


PROCttie (oO, ” Fragram Ene 
END 


APPENDIX: 
USING MATH 


Here is a summary of the mathematical symbols on your 
computer. 


Usual symbol: Computer symbol: 
+ (plus) + 
~ (minus) - 
X (multiply) ° 
(divide) / 
m" (raise to power) min 


The mathematical functions are: 


Computer Meaning: 


word: 

ASN ARCSINE 

ACS ARCCOSE 

ATN ARGTANGENT 

SIN SINE 

cos COSINE 

TAN TANGENT 

INT Reduce to next lowest whole number 

SGN Sign (returns —1 if negative, @ is zero, I if 
positive) 

ABS Returns number without its sign (so ABS — Sis 5) 

SOR Square root 

LN Natural log 

PI The constant 3.14... 

VAL Returns the numerical value of a string 


DEF FN Defines a function, to be called up with FN 


GETTING STARTED ON YOUR BEC MICRO 
is one of a series designed by experts and put 
together by actual users which will allow the 
first-time buyers of a personal computer to make 
effective, creative and constructive use of their 
new acquisition with the minimum of time- 
wasting false starts and the maximum of 
personal satisfaction and fulfilment. Free of 
jargon, this is a simple to read, easy to use, step 
by step guide to proficiency in the use of the BBC 
MICRO which will enable readers to obtain the 
maximum of results from their machine in the 
least possible time. 


Also in this series 
GETTING STARTED ON YOUR ZX81 
GETTING STARTED ON YOUR SPECTRUM 
GETTING STARTED ON YOUR TRS 80 /DRAGON 
GETTING STARTED ON YOUR COMMODORE / VIC 20 
GETTING STARTED ON YOUR ATARI 
GETTING STARTED ON YOUR ORIC 


Futura Publications 
Non-fiction + a 
ov0ns asea8 GB £ NET 002-955 


ISBN 0-7088-2443-4 
|| wii 


UK. £2.95 


9 Th Mn) Ml 


